Split item consumables from item use

src/Dodge/Item/Grammar.hs

@@ -62,7 +62,7 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
         , [(TriggerSF,TriggerLink),(WeaponTargetingSF, WeaponTargetingLink), (WeaponScopeSF, WeaponScopeLink)]
         )
     (_, AmmoMagSF{}) -> fromMaybe ([], []) $ do
-        atype <- itm ^? itUse . amagType
+        atype <- itm ^? itConsumables . magType
         return
             (
                 [ (AmmoModifierSF atype, AmmoModLink)
@@ -89,7 +89,7 @@ itemToFunction itm = case itm ^. itType of
     HELD DETECTOR{} -> GadgetPlatformSF
     HELD LASER -> WeaponTargetingSF
     HELD{} -> HeldPlatformSF
-    AMMOMAG{} -> maybe UncomposableIsolateSF AmmoMagSF $ itm ^? itUse . amagType
+    AMMOMAG{} -> maybe UncomposableIsolateSF AmmoMagSF $ itm ^? itConsumables . magType
     ATTACH REMOTESCREEN -> RemoteScreenSF
     ATTACH BULLETSYNTH -> AmmoModifierSF BulletAmmo
     ATTACH ZOOMSCOPE -> WeaponScopeSF