Secret markdown (#91)

* secret text markdown

* refactor
This commit is contained in:
Evgeny Poberezkin
2021-04-11 09:54:14 +01:00
committed by GitHub
parent 62281a62d7
commit 8fad84d3ec
2 changed files with 22 additions and 14 deletions
+1 -1
View File
@@ -61,7 +61,7 @@ setSGR = mapM_ $ \case
getKey :: MonadTerminal m => m (Key, Modifiers)
getKey =
awaitEvent >>= \case
flush >> awaitEvent >>= \case
Left Interrupt -> liftIO exitSuccess
Right (KeyEvent key ms) -> pure (key, ms)
_ -> getKey