{-# LANGUAGE DeriveGeneric #-}
module Area.Climate (
    Climate(..)
  ) where

import Data.Aeson (ToJSON(..), FromJSON(..), genericToEncoding, genericParseJSON, defaultOptions)
import GHC.Generics (Generic)

data Climate = Mild | Rain | Sand | Sun | Snow deriving (Generic)

instance ToJSON Climate where
  toEncoding = genericToEncoding defaultOptions
instance FromJSON Climate where
  parseJSON = genericParseJSON defaultOptions