justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hlint pass

Browse Source
This commit is contained in:
justin
2025-07-12 21:45:51 +01:00
parent cab125a1e9
commit 06cf55aa73
5 changed files with 14 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/HeldOffset.hs
+1 -1
View File
@@ -56,7 +56,7 @@ handOrient cr = case cr ^. crStance . posture of
locOrient :: LocationDT OItem -> Creature -> Point3Q
locOrient loc cr =
handHandleOrient (fmap (\(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