Improve configuration handling

2021-04-08 02:48:25 +02:00
parent ddb1171e2e
commit f1214c0584
14 changed files with 118 additions and 54 deletions
@@ -9,6 +9,7 @@ import Dodge.Update
 import Dodge.Event
 import Dodge.Render
 import Dodge.LoadConfig
+import Dodge.Config.Update
 import Dodge.LoadSound
 import Picture
 import Picture.Render
@@ -55,6 +56,7 @@ main = do
        (fmap (setWindowSize sizex sizey keyConfig) firstWorld)
        ( \preData w -> do
            startTicks <- SDL.ticks
+            updateDodgeConfig w
            void $ doDrawing (_renderData preData) w
            playPositionalSoundQueue (_loadedChunks $ _soundData preData) (_soundQueue w)
            newPlayingSounds <- playAndUpdate (_soundData preData) (_sounds w)