Add fields to determine an item's inventory position/whether it is held

src/Dodge/Default.hs

@@ -144,9 +144,11 @@ defaultEquipment = Item
     , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itEffect = NoItEffect
     , _itID = Nothing
+    , _itIsHeld = False
     , _itInvColor = yellow
     , _itInvDisplay = \it -> [_itName it]
     , _itInvSize = 1
+    , _itInvPos = Nothing
     , _itDimension = defItDimCol yellow
     , _itConsumption = NoConsumption
     , _itUse = EquipUse {_eqUse = \_ _ -> id}
@@ -171,6 +173,8 @@ defaultConsumable = Item
     , _itConsumption = ItemItselfConsumable  {_itAmount = 1}
     , _itEquipPict = \_ _ -> mempty
     , _itID = Nothing
+    , _itInvPos = Nothing
+    , _itIsHeld = False
     , _itInvColor = blue
     , _itInvDisplay = \it -> [_itName it ++ " x" ++ show (_itAmount $ _itConsumption it)]
     , _itEffect = NoItEffect