Dump some info to sdout when generating level

2021-11-11 11:00:31 +00:00
parent a195157e54
commit f706e541b9
6 changed files with 86 additions and 21 deletions
@@ -56,8 +56,10 @@ firstWorldLoad theConfig = do
    SDL.cursorVisible $= False
    theKeyConfig <- loadKeyConfig
    pdata <- doPreload >>= applyWorldConfig theConfig
-    w <- fmap ((keyConfig .~ theKeyConfig) . (config .~ theConfig)) firstWorld
+    w <- firstWorld
    return $ w & preloadData .~ pdata
+        & keyConfig .~ theKeyConfig
+        & config .~ theConfig

 theUpdateStep :: World -> IO World
 theUpdateStep = doSideEffects <=< updateRenderSplit