Allow for real time window resize

src/Dodge/Data.hs

@@ -10,6 +10,7 @@ module Dodge.Data
     )
   where
 import Dodge.Data.Menu
+import Preload.Data
 
 import Picture.Data
 import Geometry.Data
@@ -85,6 +86,8 @@ data World = World
     , _debugMode            :: Bool
     , _config               :: Configuration
     , _configNeedsUpdate    :: Bool
+    , _sideEffects          :: [PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)]
+    , _doneSideEffects      :: [PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)]
     } 
 
 data Corpse = Corpse