diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-30 05:18:33 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-30 05:18:33 +0400 |
| commit | e4151710e4749814337c0a22cefa417aa4735264 (patch) | |
| tree | 897491a3bfe0b68e741344d1d44b05986cdede28 /src/Data/BEncode | |
| parent | 09fc7f2347e6bbfd16831fa58a28984b9f8ca68e (diff) | |
Add new dictionary builders
Diffstat (limited to 'src/Data/BEncode')
| -rw-r--r-- | src/Data/BEncode/BDict.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/BEncode/BDict.hs b/src/Data/BEncode/BDict.hs index 2884851..925027b 100644 --- a/src/Data/BEncode/BDict.hs +++ b/src/Data/BEncode/BDict.hs | |||
| @@ -48,12 +48,12 @@ type BKey = ByteString | |||
| 48 | 48 | ||
| 49 | -- | BDictMap is list of key value pairs sorted by keys. | 49 | -- | BDictMap is list of key value pairs sorted by keys. |
| 50 | data BDictMap a | 50 | data BDictMap a |
| 51 | = Cons !BKey a (BDictMap a) | 51 | = Cons !BKey a !(BDictMap a) |
| 52 | | Nil | 52 | | Nil |
| 53 | deriving (Show, Read, Eq, Ord) | 53 | deriving (Show, Read, Eq, Ord) |
| 54 | 54 | ||
| 55 | instance NFData a => NFData (BDictMap a) where | 55 | instance NFData a => NFData (BDictMap a) where |
| 56 | rnf Nil = () | 56 | rnf Nil = () |
| 57 | rnf (Cons _ v xs)= rnf v `seq` rnf xs | 57 | rnf (Cons _ v xs)= rnf v `seq` rnf xs |
| 58 | 58 | ||
| 59 | instance Functor BDictMap where | 59 | instance Functor BDictMap where |