Apply all world side effects using list

src/Dodge/Config/Update.hs

@@ -6,20 +6,23 @@ module Dodge.Config.Update
 import Dodge.Data
 import Dodge.Config.Data
 import Sound
+import Preload.Data
 
 import Data.Aeson (encodeFile)
 import Control.Monad (when)
 
-updateDodgeConfig :: World -> IO ()
-updateDodgeConfig w = case _menuLayers w of
-    (ConfigSaveScreen : _) -> do
-        putStrLn "Saving config to data/dodge.config.json"
-        encodeFile "data/dodge.config.json" cfig
-    _ -> when (_configNeedsUpdate w) (setVolume cfig)
-  where
-    cfig = _config w
+saveConfig :: Configuration -> PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)
+saveConfig cfig d = do
+    putStrLn "Saving config to data/dodge.config.json"
+    encodeFile "data/dodge.config.json" cfig
+    return d
 
 setVolume :: Configuration -> IO ()
 setVolume cfig = do
     setSoundVolume ( _volume_master cfig * _volume_sound cfig)
     setMusicVolume ( _volume_master cfig * _volume_music cfig)
+
+setVol :: Configuration -> PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)
+setVol cfig d = do
+    setVolume cfig
+    return d