import  Text.JSON
import  Text.JSON.Generic (toJSON, fromJSON)
import  Data.Text (Text, pack, unpack)

instance JSON Text where
    showJSON = JSString . toJSString . unpack
    readJSON (JSString s) = return (pack $ fromJSString s)