diff options
Diffstat (limited to 'src/Data/BEncode/BDict.hs')
| -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 |