19 lines
335 B
Haskell
19 lines
335 B
Haskell
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)
|