395b78d · typeable/aeson

git.iko.soy/typeable/aeson

Switch to more efficient String encoding

commit395b78dba6749cd3c106a85d07290eb55e092444 authorBryan O'Sullivan <bos@serpentine.com> dateMon 6 Jul 2015, 20:51 (11 years ago) parentbc3a419

1 file changed+2−2

unifiedsplit

Data/Aeson/Types/Instances.hs+2−2

@@ -182,7 +182,7 @@ instance ToJSON [Char] where

182182 toJSON = String . T.pack

183183 {-# INLINE toJSON #-}

184184

185− toEncoding = Encoding . E.text . T.pack

185+ toEncoding = Encoding . E.string

186186

187187instance FromJSON [Char] where

188188 parseJSON = withText "String" $ pure . T.unpack

@@ -192,7 +192,7 @@ instance ToJSON Char where

192192 toJSON = String . T.singleton

193193 {-# INLINE toJSON #-}

194194

195− toEncoding = Encoding . E.text . T.singleton

195+ toEncoding = Encoding . E.string . (:[])

196196

197197instance FromJSON Char where

198198 parseJSON = withText "Char" $ \t ->