Commit before restricting menu options

2022-10-30 13:16:59 +00:00
parent 6123795c7a
commit 11e873ea48
4 changed files with 15 additions and 17 deletions
@@ -76,7 +76,10 @@ updateUniverse u =

 updateUseInput :: Universe -> Universe
 updateUseInput u = case u ^? uvScreenLayers . _head of
-    Just InputScreen{} -> doInputScreenInput u
+    Just (InputScreen thetext _) -> doInputScreenInput thetext u
+    Just OptionScreen{} --{_scOptions = mos, _scDefaultEff = defeff} -> u
+        -> u
+    Just ColumnsScreen{} -> u & uvScreenLayers %~ tail
    _ -> M.foldlWithKey' updateKeyInGame u (u ^. uvWorld . input . pressedKeys)