Move configuration from world to universe

appDodge/Main.hs

@@ -58,7 +58,7 @@ firstWorldLoad theConfig = do
     w <- generateWorldFromSeed 0
     return $ Universe 
         {_uvWorld = w
-            & config .~ theConfig
+        ,_config    = theConfig
         ,_preloadData = pdata
         ,_menuLayers = []
         ,_savedWorlds = M.empty
@@ -90,7 +90,7 @@ doSideEffects u = do
     u' <- _sideEffects w u
     endTicks <- SDL.ticks
     let lastFrameTicks = _frameTimer preData
-    when (_debug_seconds_frame $ _config w) $ void $ renderFoldable
+    when (_debug_seconds_frame $ _config u) $ void $ renderFoldable
         (_pictureShaders $ _renderData preData)
         (setDepth (-1)
             . translate (-0.5) (-0.8) . scale 0.0005 0.0005