Check whether tests compile in ghcid

src/Dodge/Item/HeldOffset.hs

@@ -7,6 +7,7 @@ module Dodge.Item.HeldOffset (
     handHandleOrient,
 ) where
 
+import Linear
 import Dodge.Creature.HandPos
 import Dodge.Data.AimStance
 import Dodge.Data.ComposedItem
@@ -26,9 +27,7 @@ turretItemOffset it tu mc =
         . transToHandle it
 
 transToHandle :: Item -> Point3 -> Point3
-transToHandle itm = (-.-.- V3 x y 0)
-  where
-    V2 x y = handlePos itm
+transToHandle itm = (-.-.- (0 & _xy .~ handlePos itm))
 
 handleOrient :: LocationDT CItem -> Point3Q
 handleOrient loc = case loc ^. locDT . dtValue . _1 . itType of
@@ -68,6 +67,8 @@ strideRot :: Creature -> Float
 strideRot cr = case cr ^? crStance . carriage of
     Just (Walking x LeftForward) -> f x
     Just (Walking x RightForward) -> - f x
+    Just (Falling x LeftForward) -> f x
+    Just (Falling x RightForward) -> - f x
     _ -> 0
   where
     f i = 0.1 * (sLen - i) / sLen