Data.Aeson.Generic examples with Strings

AesonTest.hs

{-# LANGUAGE OverloadedStrings, DeriveDataTypeable, NoMonomorphismRestriction #-}

module AesonTest where

import qualified Data.Aeson.Generic as A
import qualified Data.ByteString.Lazy as L8
import Data.Data
import Data.Typeable
import Codec.Binary.UTF8.String as U8
import Data.Maybe

data Event = Event { kind :: String } deriving (Data, Typeable, Show)

asJsonString = U8.decode . L8.unpack . A.encode
fromJsonString = fromJust . A.decode . L8.pack . U8.encode

-------------------------------------------------

asJsonStringExample = asJsonString $ Event "lol"
fromJsonStringExample = fromJsonString "{\"kind\" : \"wut\"}" :: Event

It's a (good) design choice that Aeson works with ByteStrings instead of Strings. However, Strings are a lot easier to experiment with in GHCI, so I wrote some example code for encoding/decoding POHO's (Plain Old Haskell Objects, LOL!) to JSON using the Aeson library.