12 lines
342 B
Haskell
12 lines
342 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
module Dodge.Data.CamouflageStatus where
|
|
import GHC.Generics
|
|
import Data.Aeson
|
|
data CamouflageStatus
|
|
= FullyVisible
|
|
| Invisible
|
|
deriving (Eq,Ord,Enum,Read,Show,Bounded,Generic)
|
|
instance ToJSON CamouflageStatus where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
instance FromJSON CamouflageStatus
|