Cleanup, improve auto wall rotate

2026-03-24 11:28:11 +00:00
parent be2f7160ba
commit 32f1740577
25 changed files with 226 additions and 252 deletions
@@ -31,7 +31,7 @@ generateWorldFromSeed rdata i = do
 postGenerationProcessing :: RenderData -> GenWorld -> IO World
 postGenerationProcessing _ gw = do
    let w = _gwWorld gw & cWorld . cwTiles .~ (tilesFromRooms . IM.elems $ _genRooms gw)
-    putStrLn $ show $ gw ^. genInts
+--    print $ gw ^. genInts
    return $ foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)

 assignPushDoors :: World -> Door -> World