32 lines
763 B
Haskell
32 lines
763 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
module Dodge.Data.Equipment.Misc
|
|
where
|
|
import GHC.Generics
|
|
import Data.Aeson
|
|
data EquipSite
|
|
= GoesOnHead
|
|
| GoesOnChest
|
|
| GoesOnBack
|
|
| GoesOnWrist
|
|
| GoesOnLegs
|
|
| GoesOnSpecial
|
|
deriving (Eq,Ord,Show,Read,Generic)
|
|
instance ToJSON EquipSite where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
instance FromJSON EquipSite
|
|
data EquipPosition
|
|
= OnHead
|
|
| OnChest
|
|
| OnBack
|
|
| OnLeftWrist
|
|
| OnRightWrist
|
|
| OnLegs
|
|
| OnSpecial
|
|
deriving (Eq,Ord,Show,Read,Generic)
|
|
instance ToJSON EquipPosition where
|
|
toEncoding = genericToEncoding defaultOptions
|
|
instance FromJSON EquipPosition
|
|
instance ToJSONKey EquipPosition
|
|
instance FromJSONKey EquipPosition
|