diff options
Diffstat (limited to 'src/Data/Torrent.hs')
| -rw-r--r-- | src/Data/Torrent.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index 59f11814..8411dc97 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs | |||
| @@ -142,7 +142,7 @@ infoDictionary :: LayoutInfo -> PieceInfo -> Bool -> InfoDict | |||
| 142 | infoDictionary li pinfo private = InfoDict ih li pinfo private | 142 | infoDictionary li pinfo private = InfoDict ih li pinfo private |
| 143 | where | 143 | where |
| 144 | ih = IH.hashlazy $ encode $ InfoDict fake_ih li pinfo private | 144 | ih = IH.hashlazy $ encode $ InfoDict fake_ih li pinfo private |
| 145 | fake_ih = InfoHash "" | 145 | fake_ih = "0123456789012345678901234567890123456789" |
| 146 | 146 | ||
| 147 | getPrivate :: Get Bool | 147 | getPrivate :: Get Bool |
| 148 | getPrivate = (Just True ==) <$>? "private" | 148 | getPrivate = (Just True ==) <$>? "private" |