Hlint cleanup

2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
@@ -36,7 +36,7 @@ zoneOfCr :: Creature -> [Int2]
 zoneOfCr cr = zoneOfCirc crZoneSize (_crPos cr) (_crRad cr)

 minCrIXOn :: Ord a => (Creature -> a) -> IS.IntSet -> World -> Maybe Creature
-minCrIXOn f is w = fmap fst $ IS.foldl' g Nothing is
+minCrIXOn f is w = fst <$> IS.foldl' g Nothing is
  where
    g mcrx cid = minOn snd <$> getpair cid <*> mcrx
    getpair cid = fmap h $ w ^? creatures . ix cid