Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -24,8 +24,8 @@ generateWorldFromSeed i = do
    writeFile "log/aGeneratedRoomLayout" ""
    generateGraphs
    (roomList, bounds) <- layoutLevelFromSeed 0 i
-    return $
-        postGenerationProcessing $
+    return $!
+        postGenerationProcessing $!
            _gwWorld (generateLevelFromRoomList roomList initialWorld{_randGen = mkStdGen i})
                & cWorld . cwGen . cwgRoomClipping .~ bounds
                & cWorld . cwGen . cwgSeed .~ i