more refactoring: type synonym for info dictionary

[functorrent.git] / src / Bencode.hs

diff --git a/src/Bencode.hs b/src/Bencode.hs
index 1fe6aeadd28f945f9064721e2770574ea93817b8..717170ede68b353f1c1aa0dcb012bf4853b46fb0 100644 (file)
--- a/src/Bencode.hs
+++ b/src/Bencode.hs
@@ -12,9 +12,11 @@ data BVal =
     Bint Integer
   | Bstr BC.ByteString
   | Blist [BVal]
-  | Bdict (M.Map BVal BVal)
+  | Bdict InfoDict
   deriving (Ord, Eq)
 
+type InfoDict = M.Map BVal BVal
+
 instance Show BVal where
   show (Bint i) = show i
   show (Bstr s) = "\"" ++ BC.unpack s ++ "\""