Cleanup

2022-02-13 17:29:32 +00:00
parent eba1713895
commit 40f1d987cb
21 changed files with 109 additions and 171 deletions
@@ -65,7 +65,7 @@ putFloorTiles :: GenWorld -> GenWorld
 putFloorTiles gw = gw & gWorld . floorTiles .~ floorsFromGenWorld gw

 setFloors :: GenWorld -> GenWorld
-setFloors gw = putFloorTiles $ setTiles gw
+setFloors = putFloorTiles . setTiles

 -- note the order of traversal of the rooms is important
 -- hence the reverse