Allow creation of items via typed command

2022-06-19 11:04:16 +01:00
parent 075d4b1164
commit 6cc29813d8
7 changed files with 61 additions and 39 deletions
@@ -6,7 +6,7 @@ data EquipSite
    | GoesOnWrist
    | GoesOnLegs
    | GoesOnSpecial
-    deriving (Eq,Ord,Show)
+    deriving (Eq,Ord,Show,Read)
 data EquipPosition
    = OnHead
    | OnChest