Move UseCondition out of record

src/Dodge/Item/Grammar.hs

@@ -7,6 +7,8 @@ module Dodge.Item.Grammar (
     allInvLocs,
 ) where
 
+import Dodge.ItemUseCondition
+import Dodge.Data.UseCondition
 import Dodge.Item.MagAmmoType
 import Dodge.Data.AmmoType
 import Dodge.Item.AmmoSlots
@@ -150,8 +152,8 @@ itemToFunction itm = case itm ^. itType of
     ITEMSCAN -> ToggleSF
     INTROSCAN {} -> IntroScanSF
     HELD LASER -> WeaponTargetingSF
-    HELD{} -> case itm ^? itUseCondition of
-        Just UseableWhenAimed -> HeldPlatformSF
+    HELD{} -> case itUseCondition itm of
+        UseableWhenAimed -> HeldPlatformSF
         --Just MustBeHeld -> UnloadedWeaponSF
         _ -> GadgetPlatformSF
     _