diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:12:59 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:12:59 +0100 |
| commit | ed971eb848c66a2cc38f33dbb80a6096b066ad6e (patch) | |
| tree | dc9a3cc980cae556cb8cfc233b58df05c6aa9a4e | |
| parent | 55424f6aa4c286aee353d4d8c324ed96c4080649 (diff) | |
| download | zk-visual-ed971eb848c66a2cc38f33dbb80a6096b066ad6e.tar.gz zk-visual-ed971eb848c66a2cc38f33dbb80a6096b066ad6e.zip | |
Get better help messages
| -rw-r--r-- | src/Main.hs | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 4ecd73c..9f3eeab 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE TemplateHaskell #-} + module Main where -- import Data.Char (isAlphaNum, isLetter, isNumber) @@ -279,8 +281,11 @@ options = "Show current version" ] +version :: String +version = "org-zk 0.1.0 - (C) 2023 Yann Herklotz" + headerOpts :: String -headerOpts = "org-zk v0.1.0, (C) 2023 Yann Herklotz\n\nUsage: org-zk [OPTION...] files..." +headerOpts = version <> "\n\nUsage: org-zk [OPTION...] [FILE...]\n\n[OPTION]" compilerOpts :: [String] -> IO (Options, [String]) compilerOpts argv = @@ -297,7 +302,7 @@ main = do exitSuccess when (optShowVersion zkOpts) $ do - putStrLn "org-zk v0.1.0, (C) 2023 Yann Herklotz" + putStrLn version exitSuccess graph' <- parseZettelKasten $ zip [1 ..] fl @@ -306,4 +311,12 @@ main = do let linkedGraph = linkAll graph let wrappedGraph = wrapZettelGraph linkedGraph - renderZettelGraphFile (optVerbose zkOpts) (fromMaybe "ieee.csl" (optCsl zkOpts)) (optBibliography zkOpts) (fromMaybe "output" (optOutput zkOpts)) wrappedGraph + renderZettelGraphFile + (optVerbose zkOpts) + ( fromMaybe + "ieee.csl" + (optCsl zkOpts) + ) + (optBibliography zkOpts) + (fromMaybe "output" (optOutput zkOpts)) + wrappedGraph |