diff options
Diffstat (limited to 'src/Data/Torrent/Layout.hs')
-rw-r--r-- | src/Data/Torrent/Layout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Torrent/Layout.hs b/src/Data/Torrent/Layout.hs index 70908c4e..8f35772d 100644 --- a/src/Data/Torrent/Layout.hs +++ b/src/Data/Torrent/Layout.hs | |||
@@ -68,6 +68,7 @@ import Data.Aeson.Types (FromJSON, ToJSON) | |||
68 | import Data.BEncode | 68 | import Data.BEncode |
69 | import Data.BEncode.Types | 69 | import Data.BEncode.Types |
70 | import Data.ByteString as BS | 70 | import Data.ByteString as BS |
71 | import Data.ByteString.Base16 as Base16 | ||
71 | import Data.ByteString.Char8 as BC | 72 | import Data.ByteString.Char8 as BC |
72 | import Data.Char as Char | 73 | import Data.Char as Char |
73 | import Data.Foldable as F | 74 | import Data.Foldable as F |
@@ -81,7 +82,6 @@ import System.FilePath | |||
81 | import System.Posix.Types | 82 | import System.Posix.Types |
82 | 83 | ||
83 | import Data.Torrent.Block | 84 | import Data.Torrent.Block |
84 | import Data.Torrent.InfoHash | ||
85 | 85 | ||
86 | 86 | ||
87 | {----------------------------------------------------------------------- | 87 | {----------------------------------------------------------------------- |
@@ -180,7 +180,7 @@ instance Pretty (FileInfo BS.ByteString) where | |||
180 | $$ "Size: " <> text (show fiLength) | 180 | $$ "Size: " <> text (show fiLength) |
181 | $$ maybe PP.empty ppMD5 fiMD5Sum | 181 | $$ maybe PP.empty ppMD5 fiMD5Sum |
182 | where | 182 | where |
183 | ppMD5 md5 = "MD5 : " <> text (show (InfoHash md5)) | 183 | ppMD5 md5 = "MD5 : " <> text (show (Base16.encode md5)) |
184 | 184 | ||
185 | -- | Join file path. | 185 | -- | Join file path. |
186 | joinFilePath :: FileInfo [ByteString] -> FileInfo ByteString | 186 | joinFilePath :: FileInfo [ByteString] -> FileInfo ByteString |