{-# OPTIONS_GHC -fno-warn-orphans #-}

module Network.Mail.Mime.Instances
  (
  ) where

import ClassyPrelude
import Network.Mail.Mime
import Data.Hashable (Hashable)

import Data.Aeson
import Data.Aeson.TH

import Utils.PathPiece
  

deriving instance Read Address
deriving instance Ord Address
deriving instance Generic Address

instance Hashable Address

deriveJSON defaultOptions
  { fieldLabelModifier = intercalate "-" . map toLower . drop 1 . splitCamel
  } ''Address