Cleanup

2025-10-24 11:16:30 +01:00
parent 18ab89d3f2
commit 27569ed8f3
11 changed files with 50 additions and 49 deletions
@@ -25,7 +25,7 @@ doWdCrBl wcb = case wcb of
            False
            (\cid -> canSee (_crID cr) cid w)
            (_targetCr (_crIntention cr))
-    WdCrSafeDistFromTarget x -> \w -> crSafeDistFromTarg w x -- currently ignores walls etc
+    WdCrSafeDistFromTarget x -> (`crSafeDistFromTarg` x) -- currently ignores walls etc

 doCrBl :: CrBl -> Creature -> Bool
 doCrBl cb = case cb of