26 lines
475 B
Haskell
26 lines
475 B
Haskell
{-# 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
|