Move rarely used predicated to Types module

1 files changed, 0 insertions, 33 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 16a6160..353d66e 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -88,12 +88,6 @@ module Data.BEncode
        , optKey
        , (>--)
        , (>--?)
-
-         -- * Predicates
-       , isInteger
-       , isString
-       , isList
-       , isDict
        ) where
 
 
@@ -657,33 +651,6 @@ optKey d key
 (>--?) = optKey
 {-# INLINE (>--?) #-}
 
-{--------------------------------------------------------------------
-  Predicates
---------------------------------------------------------------------}
-
--- | Test if bencoded value is an integer.
-isInteger :: BValue -> Bool
-isInteger (BInteger _) = True
-isInteger _            = False
-{-# INLINE isInteger #-}
-
--- | Test if bencoded value is a string, both raw and utf8 encoded.
-isString :: BValue -> Bool
-isString (BString _) = True
-isString _           = False
-{-# INLINE isString #-}
-
--- | Test if bencoded value is a list.
-isList :: BValue -> Bool
-isList (BList _) = True
-isList _         = False
-{-# INLINE isList #-}
-
--- | Test if bencoded value is a dictionary.
-isDict :: BValue -> Bool
-isDict (BList _) = True
-isDict _         = False
-{-# INLINE isDict #-}
 
 {--------------------------------------------------------------------
   Encoding