Work on saving/loading concurrently

2022-08-18 10:05:24 +01:00
parent 26e88f059a
commit c74d3b04bf
20 changed files with 232 additions and 154 deletions
@@ -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