Hlint cleanup

2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
@@ -55,7 +55,7 @@ crsHit sp ep w

 thingHitFilt :: (Creature -> Bool) -> (Wall -> Bool) 
    -> Point2 -> Point2 -> World -> Maybe (Point2, Either Creature Wall)
-thingHitFilt fcr fwl sp ep = listToMaybe . filter (f . snd) . thingsHit sp ep
+thingHitFilt fcr fwl sp ep = List.find (f . snd) . thingsHit sp ep
  where
    f (Left cr) = fcr cr
    f (Right wl) = fwl wl