Linting, haddocking

src/Dodge/Config/Update.hs

@@ -7,22 +7,39 @@ import Dodge.Data.SoundOrigin
 import Dodge.Config.Data
 import Sound
 import Preload.Data
+import Preload.Update
 
 import Data.Aeson (encodeFile)
 import Control.Monad (when)
 
+{- |
+Write the current world configuration to disk as a json file.
+ -}
 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)
-
+{- |
+Apply the volume settings from the world configuration to the running game.
+ -}
 setVol :: Configuration -> PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)
 setVol cfig d = do
-    setVolume cfig
+    setSoundVolume ( _volume_master cfig * _volume_sound cfig)
+    setMusicVolume ( _volume_master cfig * _volume_music cfig)
     return d
+
+{- |
+Apply /all/ of the values in the world configuration to the running game.
+ -}
+applyWorldConfig
+    :: Configuration 
+    -> PreloadData SoundOrigin 
+    -> IO (PreloadData SoundOrigin)
+applyWorldConfig cfig pdata = do
+    setVol cfig pdata >>= resizeSpareFBO (x `div` divRes) (y `div` divRes)
+  where
+    x = round $ _windowX cfig
+    y = round $ _windowY cfig
+    divRes = _shadow_resolution cfig