module Dodge.Equipment.Data where
data EquipSite
    = GoesOnHead
    | GoesOnChest
    | GoesOnBack
    | GoesOnWrist
    | GoesOnLegs
    | GoesOnSpecial
    deriving (Eq,Ord,Show)
data EquipPosition
    = OnHead
    | OnChest
    | OnBack
    | OnLeftWrist
    | OnRightWrist
    | OnLegs
    | OnSpecial
    deriving (Eq,Ord,Show)