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

Hlint cleanup

Browse Source
This commit is contained in:
justin
2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Test.hs
+1 -1
View File
@@ -64,7 +64,7 @@ crSafeDistFromTarg d cr = case cr ^? crIntention . targetCr . _Just of
Nothing -> True
crStratConMatches :: Strategy -> Creature -> Bool
crStratConMatches strat cr = strat == (_apStrategy $ _crActionPlan cr)
crStratConMatches strat cr = strat == _apStrategy (_crActionPlan cr)
-- this equality check might be slow...
crAwayFromPost :: Creature -> Bool