diff options
Diffstat (limited to 'Pancake/Command.hs')
| -rw-r--r-- | Pancake/Command.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Pancake/Command.hs b/Pancake/Command.hs index 028012a..c385dc2 100644 --- a/Pancake/Command.hs +++ b/Pancake/Command.hs @@ -69,9 +69,9 @@ parseCommand c = either (const Help) id . parse (command c) "user input" -- | Basic (constant) command parser. basicCommand :: Parser Command basicCommand = choice . map (\(s, c) -> try (string s <* eof) *> pure c) $ - [ ("q", Quit) - , ("b", Back) - , ("f", Forward) + [ ("quit", Quit) + , ("[", Back) + , ("]", Forward) , (",", GoTo Nothing RCurrent) , ("reload config", ReloadConfig) , ("help", Help) |