Add (persistent) volume control

src/Dodge/Config/Update.hs

@@ -1,10 +1,10 @@
 {-|
-IO actions that apply config side effects and save it to disk.
+IO actions that apply config side effects and save configuration settings to disk.
 -}
 module Dodge.Config.Update
     where
 import Dodge.Data
-import Dodge.LoadConfig
+import Dodge.Config.Data
 import Sound
 
 import Data.Aeson (encodeFile)
@@ -12,11 +12,14 @@ import Control.Monad (when)
 
 updateDodgeConfig :: World -> IO ()
 updateDodgeConfig w = case _menuLayers w of
-    (ConfigSaveScreen _: _) -> do
-        putStrLn "Saving config"
+    (ConfigSaveScreen : _) -> do
+        putStrLn "Saving config to data/dodge.config.json"
         encodeFile "data/dodge.config.json" cfig
-    _ -> when (_configNeedsUpdate w) $ do
-        setSoundVolume ( _volume_master cfig * _volume_sound cfig)
-        setMusicVolume ( _volume_master cfig * _volume_music cfig)
+    _ -> when (_configNeedsUpdate w) (setVolume cfig)
   where
     cfig = _config w
+
+setVolume :: Configuration -> IO ()
+setVolume cfig = do
+    setSoundVolume ( _volume_master cfig * _volume_sound cfig)
+    setMusicVolume ( _volume_master cfig * _volume_music cfig)