Move types to separate module

1 files changed, 3 insertions, 23 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index a7c766d..4d7b6c5 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -45,6 +45,8 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE Trustworthy       #-}
 {-# LANGUAGE CPP               #-}
+{-# LANGUAGE BangPatterns      #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 
 #if __GLASGOW_HASKELL__ >= 702
 {-# LANGUAGE TypeOperators          #-}
@@ -137,31 +139,9 @@ import GHC.Generics
 #endif
 
 import Data.BEncode.BDict as BD
+import Data.BEncode.Types
 
 
-type BInteger = Integer
-type BString  = ByteString
-type BList    = [BValue]
-type BDict    = BDictMap BValue
-
--- | 'BEncode' is straightforward ADT for b-encoded values. Please
--- note that since dictionaries are sorted, in most cases we can
--- compare BEncoded values without serialization and vice versa.
--- Lists is not required to be sorted through.
---
-data BValue
-  = BInteger !BInteger -- ^ bencode integers;
-  | BString  !BString  -- ^ bencode strings;
-  | BList     BList    -- ^ list of bencode values;
-  | BDict     BDict    -- ^ bencode key-value dictionary.
-    deriving (Show, Read, Eq, Ord)
-
-instance NFData BValue where
-    rnf (BInteger i) = rnf i
-    rnf (BString  s) = rnf s
-    rnf (BList    l) = rnf l
-    rnf (BDict    d) = rnf d
-
 -- | Result used in decoding operations.
 type Result = Either String