summaryrefslogtreecommitdiff
path: root/src/Data/Torrent/Layout.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/Torrent/Layout.hs')
-rw-r--r--src/Data/Torrent/Layout.hs4
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)
68import Data.BEncode 68import Data.BEncode
69import Data.BEncode.Types 69import Data.BEncode.Types
70import Data.ByteString as BS 70import Data.ByteString as BS
71import Data.ByteString.Base16 as Base16
71import Data.ByteString.Char8 as BC 72import Data.ByteString.Char8 as BC
72import Data.Char as Char 73import Data.Char as Char
73import Data.Foldable as F 74import Data.Foldable as F
@@ -81,7 +82,6 @@ import System.FilePath
81import System.Posix.Types 82import System.Posix.Types
82 83
83import Data.Torrent.Block 84import Data.Torrent.Block
84import 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.
186joinFilePath :: FileInfo [ByteString] -> FileInfo ByteString 186joinFilePath :: FileInfo [ByteString] -> FileInfo ByteString