From bffb9c6a16aaf0558ec57dbea699e609d8238185 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 28 Sep 2013 02:14:06 +0400 Subject: Do not unpack BString Since their lifetime is very short this makes no sense. --- src/Data/BEncode.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Data/BEncode.hs') 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 -- Lists is not required to be sorted through. -- data BEncode = BInteger !BInteger -- ^ bencode integers; - | BString {-# UNPACK #-} !BString -- ^ bencode strings; - | BList BList -- ^ list of bencode values; - | BDict BDict -- ^ bencode key-value dictionary. + | BString !BString -- ^ bencode strings; + | BList BList -- ^ list of bencode values; + | BDict BDict -- ^ bencode key-value dictionary. deriving (Show, Read, Eq, Ord) instance NFData BEncode where -- cgit v1.2.3