{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TemplateHaskell #-} module HAR.Cache where import Data.Aeson.TH import Data.Text (Text) newtype Cache = Cache { comment :: Maybe Text } deriving (Show) $(deriveJSON defaultOptions ''Cache)