Make aimStance record into function

src/Dodge/Creature/Test.hs

@@ -24,8 +24,7 @@ module Dodge.Creature.Test (
     crSafeDistFromTarg,
 ) where
 
---import MaybeHelp
---import Control.Applicative
+import Dodge.Item.AimStance
 import Control.Lens
 import Data.List (find)
 import Data.Maybe
@@ -92,7 +91,9 @@ crInAimStance as cr = crIsAiming cr && mitstance == Just as
   where
     mitstance = do
         i <- cr ^? crManipulation . manObject . imRootSelectedItem
-        cr ^? crInv . ix i . itUse . heldAim . aimStance
+        itm <- cr ^? crInv . ix i
+        return $ aStance itm
+        --cr ^? crInv . ix i . itUse . heldAim . aimStance
 
 oneH :: Creature -> Bool
 oneH = crInAimStance OneHand