Move equipType out of record

2025-06-05 13:52:36 +01:00
parent 1293aa0fdf
commit c8d44fea79
14 changed files with 123 additions and 164 deletions
@@ -18,7 +18,7 @@ data EquipEffect = EquipEffect
    { _eeUse :: Euse --Item -> Creature -> World -> World
    , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
    , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
-    , _eeType :: EquipType
+--    , _eeType :: EquipType
    , _eeParams :: EquipParams
    , _eeViewDist :: Maybe Float
    , _eeAttachPos :: Point3