Hlint cleanup

2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
@@ -45,8 +45,8 @@ generateLevelFromRoomList gr' w = initWallZoning
        , _gameRooms    = gameRoomsFromRooms (IM.elems rs')
        , _pathGraph    = path
        }
-        & pnZoning   .~ foldl' (flip $ zonePn) mempty (labNodes path)
-        & peZoning   .~ foldl' (flip $ zonePe) mempty (labEdges path)
+        & pnZoning   .~ foldl' (flip zonePn) mempty (labNodes path)
+        & peZoning   .~ foldl' (flip zonePe) mempty (labEdges path)
  where
    (_,path) = pairsToGraph pairPath'
    pairPath = foldMap _rmPath rs