Improve detector equipment, various cleanup

2022-05-27 18:49:54 +01:00
parent 60fc2d44e8
commit 79b3a86520
15 changed files with 180 additions and 138 deletions
@@ -0,0 +1,18 @@
+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)