diff options
Diffstat (limited to 'src/Data/BEncode.hs')
-rw-r--r-- | src/Data/BEncode.hs | 33 |
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 | |||
88 | , optKey | 88 | , optKey |
89 | , (>--) | 89 | , (>--) |
90 | , (>--?) | 90 | , (>--?) |
91 | |||
92 | -- * Predicates | ||
93 | , isInteger | ||
94 | , isString | ||
95 | , isList | ||
96 | , isDict | ||
97 | ) where | 91 | ) where |
98 | 92 | ||
99 | 93 | ||
@@ -657,33 +651,6 @@ optKey d key | |||
657 | (>--?) = optKey | 651 | (>--?) = optKey |
658 | {-# INLINE (>--?) #-} | 652 | {-# INLINE (>--?) #-} |
659 | 653 | ||
660 | {-------------------------------------------------------------------- | ||
661 | Predicates | ||
662 | --------------------------------------------------------------------} | ||
663 | |||
664 | -- | Test if bencoded value is an integer. | ||
665 | isInteger :: BValue -> Bool | ||
666 | isInteger (BInteger _) = True | ||
667 | isInteger _ = False | ||
668 | {-# INLINE isInteger #-} | ||
669 | |||
670 | -- | Test if bencoded value is a string, both raw and utf8 encoded. | ||
671 | isString :: BValue -> Bool | ||
672 | isString (BString _) = True | ||
673 | isString _ = False | ||
674 | {-# INLINE isString #-} | ||
675 | |||
676 | -- | Test if bencoded value is a list. | ||
677 | isList :: BValue -> Bool | ||
678 | isList (BList _) = True | ||
679 | isList _ = False | ||
680 | {-# INLINE isList #-} | ||
681 | |||
682 | -- | Test if bencoded value is a dictionary. | ||
683 | isDict :: BValue -> Bool | ||
684 | isDict (BList _) = True | ||
685 | isDict _ = False | ||
686 | {-# INLINE isDict #-} | ||
687 | 654 | ||
688 | {-------------------------------------------------------------------- | 655 | {-------------------------------------------------------------------- |
689 | Encoding | 656 | Encoding |