{-# 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