Move towards unifying some orientation code

2025-07-05 18:35:18 +01:00
parent 07c6298743
commit 164499fe4e
8 changed files with 57 additions and 53 deletions
@@ -96,7 +96,7 @@ crInAimStance as cr = crIsAiming cr && mitstance == Just as
    mitstance = do
        i <- cr ^? crManipulation . manObject . imRootSelectedItem
        --itm <- invRootTrees' (cr ^. crInv) ^? ix i
-        itm <- invRootTrees (cr ^. crInv) ^? ix i
+        itm <- fmap (fmap (\(a,b,_) -> (a,b))) $ invRootTrees (cr ^. crInv) ^? ix i
        return $ aimStance itm
        --cr ^? crInv . ix i . itUse . heldAim . aimStance