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
@@ -74,11 +74,6 @@ handlePressedKey _ scode u = case scode of
        _ -> return $ Just u
    _ -> handlePressedKeyInMenu (head $ _uvScreenLayers u) scode u

--doBackspace :: T.Text -> T.Text
--doBackspace t = case T.unsnoc t of
--    Nothing -> t
--    Just (t', _) -> t'
-
 handlePressedKeyTerminal :: Int -> Scancode -> World -> World
 handlePressedKeyTerminal tmid scode w = case scode of
    ScancodeEscape -> w & cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus %~ const False