Simplify creature stride length

src/Dodge/Item/HeldOffset.hs

@@ -7,8 +7,8 @@ module Dodge.Item.HeldOffset (
     handHandleOrient,
 ) where
 
-import Linear
 import Dodge.Creature.HandPos
+import Linear
 import Dodge.Data.AimStance
 import Dodge.Data.ComposedItem
 import Dodge.Data.Creature
@@ -86,7 +86,7 @@ strideRot cr = case cr ^? crStance . carriage of
     _ -> 0
   where
     f i = 0.1 * (sLen - i) / sLen
-    sLen = _strideLength $ _crStance cr
+    sLen = strideLength cr
 
 twoFlatHRot :: Creature -> Float
 twoFlatHRot = (2 *) . strideRot