[pkg-haskell-tools] 03/03: make-all: Add help output to manpage

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository pkg-haskell-tools.

commit 7f9cd67b84cc904e0855b2b2616bfb9e77ecd3c0
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Aug 18 12:16:27 2015 +0200

    make-all: Add help output to manpage
    
    although it is currently wrongly formatted.
---
 src/make-all.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/make-all.hs b/src/make-all.hs
index a291c35..5f2f342 100644
--- a/src/make-all.hs
+++ b/src/make-all.hs
@@ -6,6 +6,7 @@ import qualified Data.Text as T
 import Data.List
 import Data.List.Split
 import Data.Maybe
+import Data.Monoid
 import Control.Monad
 import Text.Read
 import System.Directory (createDirectory, copyFile)
@@ -230,8 +231,12 @@ manpage = unlines [ "TODO" ]
 
 main = do
     args <- getArgs
-    case args of ["--manpage"] -> putStr manpage
-                 _ -> do execParser opts >>= run
+    case args of
+        ["--manpage"] -> do
+            let failure = parserFailure (prefs idm) opts ShowHelpText mempty
+            let message = renderFailure failure "dht make-all"
+            putStrLn . unlines . drop 2 . lines . fst $ message
+        _ -> do execParser opts >>= run
   where
     opts = info (helper <*> confSpec)
         ( fullDesc

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/pkg-haskell-tools.git