{-# 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