Work on saving/loading concurrently

src/Dodge/Render/MenuScreen.hs

@@ -3,10 +3,10 @@ module Dodge.Render.MenuScreen (
     menuScreen,
 ) where
 
+import Dodge.ScodeToChar
 import qualified Data.Text as T
 import Dodge.Base.Window
 import Dodge.Data.Universe
-import Dodge.Menu
 import Dodge.WindowLayout
 import Padding
 import Picture
@@ -15,9 +15,9 @@ menuScreen :: Universe -> ScreenLayer -> Picture
 menuScreen w screen = case screen of
     OptionScreen{_scTitle = titf, _scOptions = mos, _scOptionsOffset = off} ->
         drawOptions w (titf w) mos off "Use keys to navigate the menu"
-    (WaitScreen sf _) -> drawOptions w (sf w) [] 0 ""
+--    (WaitScreen sf _) -> drawOptions w (sf w) [] 0 ""
     (InputScreen inputstr help) -> drawOptions w ('>' : T.unpack inputstr) [] 0 help
-    (DisplayScreen sd) -> sd w
+--    (DisplayScreen sd) -> sd w
     (ColumnsScreen titf pairs) -> drawTwoColumnsScreen (_uvConfig w) (titf w) pairs
 
 --displayStringList :: World -> [String] -> Picture