diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 04f6c0a..47dc859 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -32,6 +32,8 @@ module Main where import Control.Exception (ioError) import Control.Logging import qualified Data.Text as T +import Data.Version (showVersion) +import Paths_org_zk (version) import System.Console.GetOpt import System.IO.Error (userError) import Zettel @@ -291,11 +293,11 @@ options = "Show current version" ] -version :: String -version = "org-zk 0.1.0 - (C) 2023 Yann Herklotz" +versionStr :: String +versionStr = "org-zk " <> showVersion version <> " - (C) 2023 Yann Herklotz" headerOpts :: String -headerOpts = version <> "\n\nUsage: org-zk [OPTION...] [FILE...]\n\n[OPTION]" +headerOpts = versionStr <> "\n\nUsage: org-zk [OPTION...] [FILE...]\n\n[OPTION]" compilerOpts :: [String] -> IO (Options, [String]) compilerOpts argv = @@ -319,7 +321,7 @@ main = withStderrLogging $ do exitSuccess when (optShowVersion zkOpts) $ do - putStrLn version + putStrLn versionStr exitSuccess graph <- parseZettelKasten (zip [1 ..] fl) (optOrgBibliography zkOpts) |