Move towards using item structural function when using items

src/Dodge/Item/Grammar.hs

@@ -1,6 +1,5 @@
 module Dodge.Item.Grammar (
     invLDT,
-    invTrees',
     invTrees,
     invIndentIM,
     invAdj,
@@ -81,7 +80,12 @@ itemToFunction itm = case itm ^. itType of
     _ -> UncomposableIsolateSF
 
 simplePCI :: Item -> PartiallyComposedItem ItemLink
-simplePCI itm = (itm, itemToFunction itm, uncurry useBreakL' $ itemToBreakLists itm)
+simplePCI itm = case _itType itm of
+    HELD LASGUN -> (itm, WeaponScopeSF, uncurry useBreakL' $ itemToBreakLists itm)
+    _ -> (itm, itemToFunction itm, uncurry useBreakL' $ itemToBreakLists itm)
+
+itemLinkTestLeft :: Item -> PartiallyComposedItem (LinkTest ItemLink) -> Maybe (LinkUpdate ItemLink)
+itemLinkTestLeft itm pci = Nothing
 
 basePartiallyComposedItem' :: Item -> PartiallyComposedItem ItemLink
 basePartiallyComposedItem' itm = simplePCI itm