Move toward better info display during level generation

src/Dodge/Menu.hs

@@ -12,14 +12,15 @@ import Dodge.Config.Data
 import Dodge.Config.Update
 import SDL
 import SDL.Internal.Numbered
-import Dodge.Layout
-import Dodge.Floor
+--import Dodge.Layout
+--import Dodge.Floor
 import Dodge.Initialisation
 import Preload.Update
 import Dodge.Base.Window
 import Dodge.SoundLogic
 
 import Control.Lens
+--import Control.Monad.State
 optionMenu :: ScreenLayer
 optionMenu = OptionScreen
     { _scTitle = const "OPTIONS"
@@ -159,13 +160,9 @@ pauseMenuOptions =
 startNewGame :: World -> Maybe World
 startNewGame w = Just $ w
     & menuLayers .~ [WaitScreen (const "GENERATING...") 1]
-    & worldEvents .~ const aNewGame
-  where
-    aNewGame :: World
-    aNewGame = updateFramebufferSize $ generateLevelFromRoomList (levx 1) $ initialWorld 
-        & randGen .~ _randGen w
-        & config .~ _config w
-        & preloadData .~ _preloadData w
+--    & worldEvents .~ const aNewGame
+    & sideEffects .~ const (firstWorld <&> keyConfig .~ _keyConfig w <&> config .~ _config w
+        <&> preloadData .~ _preloadData w) -- this kills save games etc...
 
 -- | hacky
 scodeToChar :: Scancode -> Char