diff options
-rw-r--r-- | src/Data/BEncode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index ebeed6e..1284a83 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
@@ -648,13 +648,13 @@ fromDict _ _ = decodingError (show (typeOf inst)) | |||
648 | -- > ] | 648 | -- > ] |
649 | -- > ... | 649 | -- > ... |
650 | -- | 650 | -- |
651 | data Assoc = Some BKey BValue | 651 | data Assoc = Some !BKey BValue |
652 | | None | 652 | | None |
653 | 653 | ||
654 | -- TODO better name | 654 | -- TODO better name |
655 | -- | Make required key value pair. | 655 | -- | Make required key value pair. |
656 | (.=!) :: BEncode a => BKey -> a -> Assoc | 656 | (.=!) :: BEncode a => BKey -> a -> Assoc |
657 | k .=! v = Some k (toBEncode v) | 657 | (!k) .=! v = Some k (toBEncode v) |
658 | {-# INLINE (.=!) #-} | 658 | {-# INLINE (.=!) #-} |
659 | 659 | ||
660 | infix 6 .=! | 660 | infix 6 .=! |