@@ -113,7 +113,6 @@ import qualified Data.Vector.Unboxed as VU
113import Numeric.Natural
113import Numeric.Natural
115import Control.Applicative ((<$>), (<*>), pure)
115import Control.Applicative ((<$>), (<*>), pure)
116−import Data.Foldable (Foldable)
117import Data.Monoid (mempty)
116import Data.Monoid (mempty)
118import Data.Traversable as Tr (traverse)
117import Data.Traversable as Tr (traverse)
119import Data.Word (Word)
118import Data.Word (Word)
@@ -503,7 +502,7 @@ instance OVERLAPPABLE_ (FromJSON a) => FromJSON [a] where
503 zipWith parseIndexedJSON [0..] . V.toList
502 zipWith parseIndexedJSON [0..] . V.toList
504 {-# INLINE parseJSON #-}
503 {-# INLINE parseJSON #-}
506−instance OVERLAPPABLE_ (Foldable t, ToJSON a) => ToJSON (t a) where
505+instance (ToJSON a) => ToJSON (Seq.Seq a) where
507 toJSON = toJSON . toList
506 toJSON = toJSON . toList
508 {-# INLINE toJSON #-}
507 {-# INLINE toJSON #-}