Fix some menu bugs

2021-05-01 19:31:10 +02:00
parent 6eb6221a84
commit 9cdd3a9629
4 changed files with 61 additions and 48 deletions
@@ -65,11 +65,10 @@ handlePressedKeyInMenu mState scode w = case mState of
    pushMenu ml w   = Just $ w & menuLayers %~ (ml :)
    popMenu w       = Just $ w & menuLayers %~ tail
    sw = w & sideEffects %~ (setVol (_config w) : )
-    startNewGame = Just $ generateFromList levx 
+    startNewGame = Just $ updateFramebufferSize $ generateFromList levx 
        $ initialWorld 
            & randGen .~ _randGen w
-            & config . windowX .~ getWindowX w
-            & config . windowY .~ getWindowY w
+            & config .~ _config w

 updateFramebufferSize :: World -> World
 updateFramebufferSize w = w & sideEffects