Move side effects into world (may be slower)

src/Data/Preload.hs

@@ -14,5 +14,6 @@ data PreloadData a = PreloadData
     , _musicData    :: MusicData
     , _frameTimer   :: Word32
     }
+    | DummyPdata
 
 makeLenses ''PreloadData

src/Dodge/Creature/Picture.hs

@@ -10,7 +10,7 @@ module Dodge.Creature.Picture
 import Dodge.Data
 --import Dodge.Base
 --import Dodge.Creature.Stance.Data
-import Dodge.Creature.Perception.Data
+--import Dodge.Creature.Perception.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.Memory.Data

src/Dodge/Data.hs

@@ -109,6 +109,7 @@ data World = World
     , _lClickHammer         :: HammerPosition
     , _radDistortion        :: [(Point2,Point2,Point2,Float)]
     , _gameRooms            :: [GameRoom]
+    , _preloadData          :: PreloadData SoundOrigin
     }
 data OptionScreenFlag = NormalOptions | GameOverOptions
 data ScreenLayer

src/Dodge/Default/World.hs

@@ -10,6 +10,7 @@ import Dodge.Item.Data
 --import Picture
 import Geometry.Data
 --import Picture.Texture
+import Data.Preload
 
 import System.Random
 import qualified Data.IntMap.Strict as IM
@@ -84,6 +85,7 @@ defaultWorld = World
     , _foregroundEdgeVerx = []
     , _radDistortion = []
     , _gameRooms = []
+    , _preloadData = DummyPdata -- hack TODO remove this
     }
 defaultDebugFlags :: DebugFlags
 defaultDebugFlags = DebugFlags

src/Loop.hs

@@ -8,6 +8,7 @@ This module sets up an SDL window which may be updated using a simple game loop.
 module Loop
     ( setupLoop
     , setupMiniLoop
+    , setupLoop'
     ) where
 import qualified Data.Text as T
 import Control.Concurrent