Correct the definition of pairs
commit6b4f7a9c6c01e16e2a777962b7a1f5c3536ced25
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 5 Jul 2015, 16:37 (11 years ago)
parentb54d74b
Data/Aeson/Encode/Functions.hs+2−2
@@ -39,5 +39,5 @@ brackets begin end Empty = Encoding (primBounded (ascii2 (begin,end)) ())
3939
4040-- | Encode a series of key/value pairs, separated by commas.
4141pairs :: Series -> Encoding
42−pairs Empty = mempty
43−pairs (Value v) = v
42+pairs s = brackets '{' '}' s
43+{-# INLINE pairs #-}