diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-28 06:42:10 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-28 06:42:10 +0400 |
| commit | 32027c2d4392fb6964bafe3aaf6d427e5d827d21 (patch) | |
| tree | 3c58da15d8c7a4b84c9dbe19ac22eb5e6ffed4a8 /src/Data/Torrent.hs | |
| parent | fc4ed85a313f93b4fb0c46b500ee12c38e94df68 (diff) | |
Hide InfoHash constructor
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" |