diff options
author | defanor <defanor@uberspace.net> | 2017-11-05 17:32:18 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-05 17:33:51 +0300 |
commit | 37d710540002c27149b3511d895b73dc30480267 (patch) | |
tree | 38db6defb91ef120322456be3f711acfb17f9792 /Pancake.hs | |
parent | 3f4c70e68bf7723192e8a3f1caa1f22b1d72a256 (diff) |
Update the help message
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -210,9 +210,11 @@ command Reload = do command Help = do st <- get liftIO $ do - putErrLn "[q]uit, [b]ack, [f]orward, [h]elp, [r]eload, [re]load config" - putErrLn "type a number to follow a link, \"<number>?\" to print its URI" - putErrLn "type an URI (absolute or relative) to open it" + putErrLn $ intercalate "\n" $ + [ "[q]uit, [b]ack, [f]orward, [h]elp, [r]eload, [re]load config" + , "type a number to follow a link, \"?<number>\" to print its URI" + , "type an URI (absolute or relative) to open it" + , "prefix it with a type (html, txt, org, etc) to choose a reader"] when (paginate $ conf st) $ putErrLn "RET to scroll" command (Show n) = do st <- get |