Remove (by commenting out) module item-type system

src/Dodge/Creature/Impulse/UseItem.hs

@@ -44,7 +44,7 @@ itemUseEffect cr it w = case it ^. ldtValue . itUse of
     TargetingUse {} -> w
     AmmoMagUse{} -> w
     ScopeUse{} -> w
-    BulletTrajectoryUse{} -> w
+    BulletModUse{} -> w
   where
     itm = it ^. ldtValue
     doequipmentchange = fromMaybe w $ do

src/Dodge/Creature/Picture.hs

@@ -9,6 +9,7 @@ module Dodge.Creature.Picture (
     deadFeet,
 ) where
 
+import Dodge.Item.Grammar
 import Shape
 import Control.Lens
 import Dodge.Creature.HandPos (translateToLeftHand, translateToRightHand)
@@ -172,4 +173,4 @@ shoulderSH = translateSHz 20
 
 drawEquipment :: Creature -> SPic
 {-# INLINE drawEquipment #-}
-drawEquipment cr = foldMap (itemEquipPict cr) (_crInv cr)
+drawEquipment cr = foldMap (itemEquipPict cr) (invLDT $ _crInv cr)