Commits

Bryan O'Sullivan committed 29f2610

Drop ByteString instances (gh-126)

Comments (0)

Files changed (2)

Data/Aeson/Generic.hs

          `extQ` (T.toJSON :: T Text)
          `extQ` (T.toJSON :: T LT.Text)
          `extQ` (T.toJSON :: T String)
-         `extQ` (T.toJSON :: T B.ByteString)
-         `extQ` (T.toJSON :: T L.ByteString)
          `extQ` (T.toJSON :: T T.Value)
          `extQ` (T.toJSON :: T DotNetTime)
          `extQ` (T.toJSON :: T UTCTime)
              `extR` (value :: F Text)
              `extR` (value :: F LT.Text)
              `extR` (value :: F String)
-             `extR` (value :: F B.ByteString)
-             `extR` (value :: F L.ByteString)
              `extR` (value :: F T.Value)
              `extR` (value :: F DotNetTime)
              `extR` (value :: F UTCTime)

Data/Aeson/Types/Class.hs

     parseJSON = withText "Lazy Text" $ pure . LT.fromStrict
     {-# INLINE parseJSON #-}
 
-instance ToJSON B.ByteString where
-    toJSON = String . decode
-    {-# INLINE toJSON #-}
-
-instance FromJSON B.ByteString where
-    parseJSON = withText "ByteString" $ pure . encodeUtf8
-    {-# INLINE parseJSON #-}
-
-instance ToJSON LB.ByteString where
-    toJSON = toJSON . strict
-    {-# INLINE toJSON #-}
-
-instance FromJSON LB.ByteString where
-    parseJSON = withText "Lazy ByteString" $ pure . lazy
-    {-# INLINE parseJSON #-}
-
 instance (ToJSON a) => ToJSON [a] where
     toJSON = Array . V.fromList . map toJSON
     {-# INLINE toJSON #-}