11 lines
335 B
Haskell
11 lines
335 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Data.Gas where
|
|
import GHC.Generics
|
|
import Data.Aeson
|
|
data GasCreate = CreatePoisonGas | CreateFlame
|
|
deriving (Eq,Ord,Show,Enum,Bounded,Read,Generic)
|
|
instance ToJSON GasCreate where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
instance FromJSON GasCreate
|