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
@@ -59,7 +59,7 @@ parseNum :: [String] -> Int
 parseNum xs = fromMaybe 1 $ xs ^? ix 0 >>= readMaybe

 showTerminalError :: String -> String -> Universe -> Universe
-showTerminalError cmd s = menuLayers .:~ InputScreen (T.pack cmd) s
+showTerminalError cmd s = uvScreenLayers .:~ InputScreen (T.pack cmd) s

 applySetTerminalString :: String -> Universe -> Universe
 applySetTerminalString [] = id