Work towards making world read/showable

appDodge/Main.hs

@@ -2,6 +2,7 @@ module Main
     ( main 
     ) where
 import Loop
+import Dodge.TestString
 import Dodge.Data
 import Dodge.StartNewGame
 import Dodge.Initialisation
@@ -76,11 +77,12 @@ firstWorldLoad theConfig = do
     pdata <- doPreload >>= applyWorldConfig theConfig
     return $ startNewGame $ Universe 
         {_uvWorld = initialWorld
-        ,_config    = theConfig
+        ,_uvConfig    = theConfig
         ,_preloadData = pdata
         ,_menuLayers = []
         ,_savedWorlds = M.empty
         ,_keyConfig = theKeyConfig
+        , _uvTestString = testStringInit
         }
 
 theUpdateStep :: Universe -> IO Universe
@@ -107,7 +109,7 @@ doSideEffects u = do
     u' <- _sideEffects w u
     endTicks <- SDL.ticks
     let lastFrameTicks = _frameTimer preData
-    when (debugOn Show_ms_frame $ _config u) $ void $ renderFoldable
+    when (debugOn Show_ms_frame $ _uvConfig u) $ void $ renderFoldable
         (_pictureShaders $ _renderData preData)
         (setDepth (-1)
             . translate (-0.5) (-0.8) . scale 0.0005 0.0005