json.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DefaultSignatures #-}

import GHC.Generics
import Control.Applicative
import Data.Text.Encoding
import           Data.Aeson
import           Data.Aeson.Types
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as LB

main = undefined

data A = A { x :: B.ByteString} deriving Generic

instance ToJSON A
instance FromJSON A