Cleanup

2025-06-01 09:31:29 +01:00
parent b7cd91b56e
commit 39753755af
2 changed files with 10 additions and 13 deletions
@@ -135,10 +135,8 @@ doAimTwist :: Float -> Creature -> Creature
 doAimTwist x cr = fromMaybe cr $ do
    itRef <- cr ^? crManipulation . manObject . imRootSelectedItem
    astance <- cr ^? crInv . ix itRef . itUse . heldAim . aimStance
-    return $ case astance of
-        TwoHandUnder -> cr & crDir +~ x
-        TwoHandOver -> cr & crDir +~ x
-        _ -> cr
+    guard $ astance == TwoHandOver || astance == TwoHandUnder
+    return $ cr & crDir +~ x

 removeAimPosture :: Creature -> Creature
 removeAimPosture = (crStance . posture .~ AtEase) . doAimTwist twoHandTwistAmount