Make aimStance record into function

src/Dodge/Item/Grammar.hs

@@ -7,6 +7,7 @@ module Dodge.Item.Grammar (
     allInvLocs,
 ) where
 
+import Dodge.Item.AimStance
 import Control.Applicative
 import qualified Data.IntMap.Strict as IM
 import Data.Maybe
@@ -125,7 +126,8 @@ extraWeaponLinks itm = case itm ^. itType of
 
 extraWeaponLinksBelow :: Item -> [(ItemStructuralFunction, ComposeLinkType)]
 extraWeaponLinksBelow itm
-    | Just TwoHandUnder <- itm ^? itUse . heldAim . aimStance
+--    | Just TwoHandUnder <- itm ^? itUse . heldAim . aimStance
+    | TwoHandUnder <- aStance itm
         = [(UnderBarrelSlotSF,UnderBarrelSlotLink)]
     | otherwise = []