diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-30 05:30:07 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-30 05:30:07 +0400 |
| commit | 527df206a40c72786f3aa956c093fc226c9fcc82 (patch) | |
| tree | 8177fe2692e5ff8b2adc8f8521b5e5f43e451c74 | |
| parent | ad6235f30d9defe8b0be6e0fb5b873e5fc14d067 (diff) | |
Minor optimizations
| -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 .=! |