diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-28 02:14:06 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-28 02:14:06 +0400 |
| commit | bffb9c6a16aaf0558ec57dbea699e609d8238185 (patch) | |
| tree | 80cd58881e805c91da0fc0c88058e7a62d2c5b8d | |
| parent | 1b089e7f550fc607546718a26388ea6faf2d91ae (diff) | |
Do not unpack BString
Since their lifetime is very short this makes no sense.
| -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 |