14 lines
331 B
Haskell
14 lines
331 B
Haskell
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
module Gender (
|
||
|
Gender(..)
|
||
|
) where
|
||
|
|
||
|
import Data.Aeson (ToJSON(..), FromJSON(..), genericToEncoding, defaultOptions)
|
||
|
import GHC.Generics (Generic)
|
||
|
|
||
|
data Gender = M | F | NB deriving (Generic)
|
||
|
|
||
|
instance ToJSON Gender where
|
||
|
toEncoding = genericToEncoding defaultOptions
|
||
|
instance FromJSON Gender
|