@@ -11,10 +11,8 @@ module Data.Aeson.Types
1111 ) where
1212
1313import Control.Applicative
14−import Data.ByteString (ByteString)
1514import Data.Map (Map)
1615import Data.Text (Text, pack, unpack)
17−import Data.Text.Encoding (decodeUtf8, encodeUtf8)
1816import Data.Time.Clock (UTCTime)
1917import Data.Time.Format (formatTime, parseTime)
2018import Data.Vector (Vector)
@@ -99,13 +97,6 @@ instance FromJSON Text where
9997 fromJSON _ = empty
10098 {-# INLINE fromJSON #-}
10199
102−instance ToJSON ByteString where
103− toJSON = String . decodeUtf8
104−
105−instance FromJSON ByteString where
106− fromJSON (String t) = pure (encodeUtf8 t)
107− fromJSON _ = empty
108−
109100mapA :: (Applicative f) => (t -> f a) -> [t] -> f [a]
110101mapA f = go
111102 where