Move UseCondition out of record

2025-06-05 19:41:33 +01:00
parent 16f5c05f19
commit 816ab4222f
15 changed files with 325 additions and 382 deletions
@@ -40,7 +40,7 @@ data Consumables

 data Item = Item
    { _itUse :: ItemUse
-    , _itUseCondition :: UseCondition
+--    , _itUseCondition :: UseCondition
    , _itConsumables :: Consumables
    , _itType :: ItemType
    , _itID :: NewInt ItmInt