Hlint cleanup

2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
@@ -43,4 +43,3 @@ armourChaseCrit = chaseCrit
    } 
    & crEquipment . at OnChest ?~ 0
    & crInvEquipped . at 0 ?~ OnChest
-  where
@@ -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