From ffb985f1a2af3eaa9f02dca233812ff257549003 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 3 Mar 2021 05:52:57 -0800
Subject: [PATCH] ui, web: make --man and --info work, similar to hledger

(cf #1410)
---
 hledger-ui/Hledger/UI/Main.hs   | 2 ++
 hledger-web/Hledger/Web/Main.hs | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index e0a5b475f..728c2fbce 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -59,6 +59,8 @@ main = do
 
   case True of
     _ | "help"            `inRawOpts` rawopts -> putStr (showModeUsage uimode)
+    _ | "info"            `inRawOpts` rawopts -> runInfoForTopic "hledger-ui" Nothing
+    _ | "man"             `inRawOpts` rawopts -> runManForTopic  "hledger-ui" Nothing
     _ | "version"         `inRawOpts` rawopts -> putStrLn prognameandversion
     _ | "binary-filename" `inRawOpts` rawopts -> putStrLn (binaryfilename progname)
     _                                         -> withJournalDo copts' (runBrickUi opts)
diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index c87901900..37a4cbebf 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -54,6 +54,8 @@ hledgerWebMain = do
   when (debug_ > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show wopts)
   if
     | "help"            `inRawOpts` rawopts_ -> putStr (showModeUsage webmode) >> exitSuccess
+    | "info"            `inRawOpts` rawopts_ -> runInfoForTopic "hledger-web" Nothing
+    | "man"             `inRawOpts` rawopts_ -> runManForTopic  "hledger-web" Nothing
     | "version"         `inRawOpts` rawopts_ -> putStrLn prognameandversion >> exitSuccess
     | "binary-filename" `inRawOpts` rawopts_ -> putStrLn (binaryfilename progname)
     | "test"            `inRawOpts` rawopts_ -> do