37 lines
751 B
Haskell
37 lines
751 B
Haskell
--{-# LANGUAGE DeriveGeneric #-}
|
|
--{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Equipment.Misc where
|
|
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
|
|
data EquipSite
|
|
= GoesOnHead
|
|
| GoesOnChest
|
|
| GoesOnBack
|
|
| GoesOnWrist
|
|
| GoesOnLegs
|
|
deriving (Eq,Ord,Show,Read)
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data EquipPosition
|
|
= OnHead
|
|
| OnChest
|
|
| OnBack
|
|
| OnLeftWrist
|
|
| OnRightWrist
|
|
| OnLegs
|
|
| OnSpecial
|
|
deriving (Eq, Ord)
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
|
|
deriveJSON defaultOptions ''EquipSite
|
|
deriveJSON defaultOptions ''EquipPosition
|
|
instance ToJSONKey EquipPosition
|
|
|
|
instance FromJSONKey EquipPosition
|