Move towards uploading certain vbos less than once per frame (floor)

src/Dodge/LevelGen.hs

@@ -24,14 +24,14 @@ generateWorldFromSeed i = do
     writeFile "log/aGeneratedRoomLayout" ""
     generateGraphs
     (roomList, bounds) <- layoutLevelFromSeed 0 i
-    return $!
-        postGenerationProcessing $!
+    postGenerationProcessing $!
             _gwWorld (generateLevelFromRoomList roomList initialWorld{_randGen = mkStdGen i})
                 & cWorld . cwGen . cwgRoomClipping .~ bounds
                 & cWorld . cwGen . cwgSeed .~ i
 
-postGenerationProcessing :: World -> World
-postGenerationProcessing w = foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)
+postGenerationProcessing :: World -> IO World
+postGenerationProcessing w =
+    return $ foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)
 
 generateGraphs :: IO ()
 generateGraphs = TIO.writeFile "graph/itemCombinations.gv" combinationsDotGraph