{-|
Ministries can be encoded to and decoded from JSON:

>>> import Data.Aeson (decode, encode)
>>> import Data.ByteString.Lazy.Char8 (pack)

>>> encode Defense
"\"Defense\""

>>> encode [ Defense, Welfare ]
"[\"Defense\",\"Welfare\"]"

>>> decode . pack $ "[ \"Science\" ]" :: Maybe [Ministry]
Just [Science]
-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}

module Malodivo.Types.Ministry
  ( Ministry(..)
  ) where

import GHC.Generics (Generic)

import Data.Aeson (FromJSON, ToJSON)

-- | Ministry of the Kingdom of Malodivo.
data Ministry
  = Defense
  | Science
  | Welfare
  deriving (Show, Generic, FromJSON, ToJSON)