{-# LANGUAGE DeriveGeneric   #-}

import           Data.Aeson
import           GHC.Generics

    } deriving (Show)

    } deriving (Show, Generic)
instance ToJSON Location where
    toEncoding = genericToEncoding defaultOptions

import           Data.Char (isPrint)
import qualified Data.Text as T

import           Data.Aeson

instance ToJSON PrintableText where
    toJSON = toJSON . unPrintableText
    toEncoding = toEncoding . unPrintableText

{-# LANGUAGE DeriveGeneric     #-}

data NonEmptyList a = NonEmptyList a [a] deriving (Show, Eq, Ord, Functor, Foldable, Traversable)

import Data.Aeson
import           GHC.Generics
data NonEmptyList a = NonEmptyList a [a] deriving (Show, Eq, Ord, Functor, Foldable, Traversable, Generic)
instance ToJSON a => ToJSON (NonEmptyList a) where
    toEncoding = genericToEncoding defaultOptions

import           Data.Aeson

makeLenses ''Primer

$(makeLenses ''Primer)

    toEncoding = genericToEncoding defaultOptions { fieldLabelModifier = camel . drop 6 }

    toEncoding = genericToEncoding defaultOptions { fieldLabelModifier = camel . drop 1 }

    parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = camel . drop 6 }

    parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = camel . drop 1 }