Separate out concrete part of world

src/Dodge/Default/World.hs

@@ -11,6 +11,14 @@ import Data.Graph.Inductive.Graph hiding ((&))
 --import Data.Graph.Inductive.NodeMap
 defaultWorld :: World
 defaultWorld = World
+    { _cWorld = defaultCWorld
+    , _toPlaySounds = M.empty
+    , _playingSounds = M.empty
+    , _randGen = mkStdGen 2
+    }
+
+defaultCWorld :: CWorld
+defaultCWorld = CWorld
     { _keys             = S.empty
     , _magnets          = IM.empty
     , _mouseButtons     = mempty
@@ -62,15 +70,12 @@ defaultWorld = World
     , _wlZoning     = IM.empty --Zoning IM.empty wlZoneSize zoneOfWall
     , _floorItems = IM.empty
     , _floorTiles = []
-    , _randGen = mkStdGen 2
     , _mousePos = V2 0 0
     , _yourID = 0
     , _worldEvents = []
     , _delayedEvents = []
     , _pressPlates = IM.empty
     , _buttons = IM.empty
-    , _toPlaySounds = M.empty
-    , _playingSounds = M.empty
     , _corpses = IM.empty
     , _decorations = IM.empty
     --, _savedWorlds = M.empty