Work towards making world read/showable

src/Dodge/Render/MenuScreen.hs

@@ -18,7 +18,7 @@ menuScreen w screen = case screen of
     (WaitScreen sf _)       -> drawOptions w (sf w) [] 0 ""
     (InputScreen inputstr help)    -> drawOptions w ('>':T.unpack inputstr) [] 0 help
     (DisplayScreen sd )     -> sd w
-    (ColumnsScreen titf pairs) -> drawTwoColumnsScreen (_config w) (titf w) pairs
+    (ColumnsScreen titf pairs) -> drawTwoColumnsScreen (_uvConfig w) (titf w) pairs
 
 --displayStringList :: World -> [String] -> Picture
 --displayStringList w ss = pictures
@@ -76,7 +76,7 @@ drawOptions u title ops off footer = pictures $
     notInvisible _ = True
     hh = halfHeight cfig
     hw = halfWidth  cfig
-    cfig = _config u
+    cfig = _uvConfig u
 
 optionValueOffset :: Universe -> MenuOption -> Int
 optionValueOffset u mo = case _moString mo u of