diff options
| -rw-r--r-- | src/Data/BEncode.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index d7595a9..1601fd1 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
| @@ -147,9 +147,9 @@ type BKey = ByteString | |||
| 147 | -- Lists is not required to be sorted through. | 147 | -- Lists is not required to be sorted through. |
| 148 | -- | 148 | -- |
| 149 | data BEncode = BInteger !BInteger -- ^ bencode integers; | 149 | data BEncode = BInteger !BInteger -- ^ bencode integers; |
| 150 | | BString {-# UNPACK #-} !BString -- ^ bencode strings; | 150 | | BString !BString -- ^ bencode strings; |
| 151 | | BList BList -- ^ list of bencode values; | 151 | | BList BList -- ^ list of bencode values; |
| 152 | | BDict BDict -- ^ bencode key-value dictionary. | 152 | | BDict BDict -- ^ bencode key-value dictionary. |
| 153 | deriving (Show, Read, Eq, Ord) | 153 | deriving (Show, Read, Eq, Ord) |
| 154 | 154 | ||
| 155 | instance NFData BEncode where | 155 | instance NFData BEncode where |