@@ -19,6 +19,7 @@ import Data.Aeson.Types.Class
19import Data.Aeson.Types.Internal
19import Data.Aeson.Types.Internal
20import Data.ByteString.Builder (Builder, char7)
20import Data.ByteString.Builder (Builder, char7)
21import Data.ByteString.Builder.Prim (primBounded)
21import Data.ByteString.Builder.Prim (primBounded)
22+import Data.Foldable (toList)
22import Data.Monoid ((<>))
23import Data.Monoid ((<>))
23import qualified Data.ByteString.Builder as B
24import qualified Data.ByteString.Builder as B
24import qualified Data.ByteString.Lazy as L
25import qualified Data.ByteString.Lazy as L
@@ -48,7 +49,7 @@ encode = B.toLazyByteString . builder
49-- | Encode a 'Foldable' as a JSON array.
50-- | Encode a 'Foldable' as a JSON array.
50foldable :: (Foldable t) => (a -> Encoding) -> t a -> Encoding
51foldable :: (Foldable t) => (a -> Encoding) -> t a -> Encoding
51−foldable to = brackets '[' ']' . foldMap (Value . to)
52+foldable to = list to . toList
52{-# INLINE foldable #-}
53{-# INLINE foldable #-}
54brackets :: Char -> Char -> Series -> Encoding
55brackets :: Char -> Char -> Series -> Encoding