Add version to CLI header.

damianfral · Apr 1, 2023 · 4f30223 · 4f30223
1 parent ca9fc5a
commit 4f30223
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/GitHub/CLI.hs b/src/GitHub/CLI.hs
@@ -20,6 +20,8 @@ import Options.Applicative.Types
 import Options.Generic
 import Relude hiding (sort)
 import qualified Turtle
+import Data.Version (showVersion)
+import Paths_github_ls
 
 --------------------------------------------------------------------------------
 
@@ -199,7 +201,13 @@ runOptions Options {..} auth = do
         Just s -> V.modify (sortReposBy s) repos
 
 runCLI = do
-  options <- unwrapRecord "github-ls - List your github repositories"
+  options <-
+    unwrapRecord $
+      unwords
+        [ "github-ls",
+          "v" <> pack (showVersion version),
+          " List your github repositories"
+        ]
   token <- runMaybeT $ MaybeT getAuthToken <|> MaybeT (login >> getAuthToken)
   case token of
     Nothing -> log "No auth" >> exitFailure