Haskell snippet: ToJSON a => a -> Text,FromJSON a => Text -> Maybe a

SyncJSONAndText.hs

import           Data.Text                   (Text)
import           Data.Text.Lazy              (fromStrict, toStrict)
import           Data.Text.Lazy.Builder      (toLazyText)
import           Data.Text.Lazy.Encoding     (encodeUtf8)

import           Data.Aeson
import           Data.Aeson.Text             (encodeToTextBuilder)

asText :: ToJSON a => a -> Text
asText = toStrict . toLazyText . encodeToTextBuilder . toJSON

fromText :: FromJSON a => Text -> Maybe a
fromText =  decode . encodeUtf8 . fromStrict