Move side effects into world (may be slower)

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