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