Work on saving/loading concurrently

src/Dodge/Menu/Option.hs

@@ -0,0 +1,13 @@
+module Dodge.Menu.Option
+    where
+import Dodge.Data.Universe
+
+slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> IO (Maybe Universe)) -> ScreenLayer
+slTitleOptionsEff title ops eff =
+    OptionScreen
+        { _scTitle = const title
+        , _scOptions = ops
+        , _scDefaultEff = eff
+        , _scOptionFlag = NormalOptions
+        , _scOptionsOffset = 0
+        }

src/Dodge/Menu/PushPop.hs

@@ -4,13 +4,13 @@ import Dodge.Data.Universe
 import LensHelp
 
 popScreen' :: Universe -> Maybe Universe
-popScreen' = Just . (menuLayers %~ tail)
+popScreen' = Just . (uvScreenLayers %~ tail)
 
 popScreen :: Universe -> IO (Maybe Universe)
 popScreen = return . popScreen'
 
 pushScreen' :: ScreenLayer -> Universe -> Maybe Universe
-pushScreen' ml = Just . (menuLayers .:~ ml)
+pushScreen' ml = Just . (uvScreenLayers .:~ ml)
 
 pushScreen :: ScreenLayer -> Universe -> IO (Maybe Universe)
 pushScreen ml = return . pushScreen' ml