diff options
Diffstat (limited to 'src/Data/Torrent.hs')
-rw-r--r-- | src/Data/Torrent.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index e4b17c2b..d6227b6f 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs | |||
@@ -78,6 +78,7 @@ import Data.ByteString as BS | |||
78 | import qualified Data.ByteString.Char8 as BC (pack, unpack) | 78 | import qualified Data.ByteString.Char8 as BC (pack, unpack) |
79 | import qualified Data.ByteString.Lazy as BL | 79 | import qualified Data.ByteString.Lazy as BL |
80 | import Data.Char as Char | 80 | import Data.Char as Char |
81 | import Data.Default | ||
81 | import Data.Hashable as Hashable | 82 | import Data.Hashable as Hashable |
82 | import qualified Data.List as L | 83 | import qualified Data.List as L |
83 | import Data.Maybe | 84 | import Data.Maybe |
@@ -143,8 +144,7 @@ instance Hashable InfoDict where | |||
143 | infoDictionary :: LayoutInfo -> PieceInfo -> Bool -> InfoDict | 144 | infoDictionary :: LayoutInfo -> PieceInfo -> Bool -> InfoDict |
144 | infoDictionary li pinfo private = InfoDict ih li pinfo private | 145 | infoDictionary li pinfo private = InfoDict ih li pinfo private |
145 | where | 146 | where |
146 | ih = hashLazyIH $ encode $ InfoDict fake_ih li pinfo private | 147 | ih = hashLazyIH $ encode $ InfoDict def li pinfo private |
147 | fake_ih = "0123456789012345678901234567890123456789" | ||
148 | 148 | ||
149 | getPrivate :: Get Bool | 149 | getPrivate :: Get Bool |
150 | getPrivate = (Just True ==) <$>? "private" | 150 | getPrivate = (Just True ==) <$>? "private" |