Refactor framebuffer update

src/Dodge/Config/Update.hs

@@ -3,7 +3,6 @@ IO actions that apply config side effects and save configuration settings to dis
 -}
 module Dodge.Config.Update (
     saveConfig,
-    setVolThen,
     applyWorldConfig,
     setVol,
 ) where
@@ -33,12 +32,6 @@ setVol cfig = do
     setSoundVolume (_volume_master cfig * _volume_sound cfig)
     setMusicVolume (_volume_master cfig * _volume_music cfig)
 
--- what?
-setVolThen :: Configuration -> (a -> IO a) -> a -> IO a
-setVolThen cfig f a = do
-    setVol cfig
-    f a
-
 {- |
 Apply /all/ of the values in the world configuration to the running game.
 -}