@@ -19,6 +19,7 @@ import Data.Aeson.Types.Class
1919import Data.Aeson.Types.Internal
2020import Data.ByteString.Builder (Builder, char7)
2121import Data.ByteString.Builder.Prim (primBounded)
22+import Data.Foldable (toList)
2223import Data.Monoid ((<>))
2324import qualified Data.ByteString.Builder as B
2425import qualified Data.ByteString.Lazy as L
@@ -48,7 +49,7 @@ encode = B.toLazyByteString . builder
4849
4950-- | Encode a 'Foldable' as a JSON array.
5051foldable :: (Foldable t) => (a -> Encoding) -> t a -> Encoding
51−foldable to = brackets '[' ']' . foldMap (Value . to)
52+foldable to = list to . toList
5253{-# INLINE foldable #-}
5354
5455brackets :: Char -> Char -> Series -> Encoding