summaryrefslogtreecommitdiff
path: root/Pancake/Command.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Pancake/Command.hs')
-rw-r--r--Pancake/Command.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Pancake/Command.hs b/Pancake/Command.hs
index 5126146..4c34a19 100644
--- a/Pancake/Command.hs
+++ b/Pancake/Command.hs
@@ -61,6 +61,7 @@ data Command = Quit
| Shortcut String String
| ReloadConfig
| SetWidth (Maybe Int)
+ | Redisplay
deriving (Show, Eq)
-- | Parses a user command.
@@ -77,6 +78,7 @@ basicCommand = choice . map (\(s, c) -> try (string s <* eof) *> pure c) $
, ("reload config", ReloadConfig)
, ("help", Help)
, ("?", ShowCurrent)
+ , ("redisplay", Redisplay)
, ("", More)]
-- | Link number parser.