From 37d710540002c27149b3511d895b73dc30480267 Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 5 Nov 2017 17:32:18 +0300 Subject: Update the help message --- Pancake.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Pancake.hs') diff --git a/Pancake.hs b/Pancake.hs index ef0d7d1..914c242 100644 --- a/Pancake.hs +++ b/Pancake.hs @@ -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, \"?\" 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, \"?\" 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 -- cgit v1.2.3