Cleanup

src/Dodge/Item/HeldOffset.hs

@@ -55,7 +55,7 @@ handOrient cr = case cr ^. crStance . posture of
 
 locOrient :: LocationDT OItem -> Creature -> Point3Q
 locOrient loc cr =
-    handHandleOrient ((\(x, y, _) -> (x, y)) <$> locToTop' loc) cr
+    handHandleOrient ((\(x, y, _) -> (x, y)) <$> locToTop loc) cr
         `Q.comp` (loc ^. locDT . dtValue . _3)
 
 handHandleOrient :: LocationDT CItem -> Creature -> Point3Q
@@ -63,7 +63,7 @@ handHandleOrient loc cr =
     handOrient cr (aimStance (loc' ^. locDT))
         `Q.comp` handleOrient loc'
   where
-    loc' = locToTop' loc
+    loc' = locToTop loc
 
 shoulderHeight :: Float
 shoulderHeight = 18