@@ -113,7 +113,6 @@ import qualified Data.Vector.Unboxed as VU
113113import Numeric.Natural
114114#else
115115import Control.Applicative ((<$>), (<*>), pure)
116−import Data.Foldable (Foldable)
117116import Data.Monoid (mempty)
118117import Data.Traversable as Tr (traverse)
119118import Data.Word (Word)
@@ -503,7 +502,7 @@ instance OVERLAPPABLE_ (FromJSON a) => FromJSON [a] where
503502 zipWith parseIndexedJSON [0..] . V.toList
504503 {-# INLINE parseJSON #-}
505504
506−instance OVERLAPPABLE_ (Foldable t, ToJSON a) => ToJSON (t a) where
505+instance (ToJSON a) => ToJSON (Seq.Seq a) where
507506 toJSON = toJSON . toList
508507 {-# INLINE toJSON #-}
509508