Add version flag

app/App/Arguments.hs

@@ -1,13 +1,19 @@
 module App.Arguments (execArgParser) where
 
+import Data.Version (showVersion)
 import Options.Applicative
+import Paths_static_ls (version)
 import StaticLS.StaticEnv.Options
 import System.Environment
 import System.Exit
 import Text.Parsec hiding (many, option)
 
+currVersion :: String
+currVersion = showVersion version
+
 data PrgOptions = PrgOptions
     { staticEnvOpts :: StaticEnvOptions
+    , showVer :: Bool
     , showHelp :: Bool
     }
 
@@ -24,6 +30,10 @@ execArgParser =
         -- Get the help text (optparse-applicative usually shows the help text on error)
         handleParseResult . Failure $
             parserFailure defaultPrefs progParseInfo (ShowHelpText Nothing) mempty
+    handleParseResultWithSuppression (Success (PrgOptions{showVer = True})) = do
+        -- Show version info
+        putStrLn $ "static-ls, version " <> currVersion
+        exitSuccess
     handleParseResultWithSuppression (Success a) = return a.staticEnvOpts
     -- Ignore if invalid arguments are input
     handleParseResultWithSuppression (Failure _) = return defaultStaticEnvOptions
@@ -46,6 +56,13 @@ argParser :: Parser PrgOptions
 argParser =
     PrgOptions
         <$> staticEnvOptParser
+        <*> flag
+            False
+            True
+            ( long "version"
+                <> short 'v'
+                <> help "Show the program version"
+            )
         <*> flag
             False
             True

package.yaml

@@ -65,6 +65,8 @@ executable:
   dependencies:
   - static-ls
   - optparse-applicative >= 0.17.0.0 && < 0.19
+  generated-other-modules:
+    - Paths_static_ls
 
 tests:
   static-ls-test:

static-ls.cabal

@@ -1,4 +1,4 @@
-cabal-version: 1.12
+cabal-version: 2.0
 
 -- This file has been generated from package.yaml by hpack version 0.36.0.
 --
@@ -50,6 +50,8 @@ library
       StaticLS.StaticEnv.Options
   other-modules:
       Paths_static_ls
+  autogen-modules:
+      Paths_static_ls
   hs-source-dirs:
       src
   default-extensions:
@@ -91,6 +93,8 @@ executable static-ls
   other-modules:
       App.Arguments
       Paths_static_ls
+  autogen-modules:
+      Paths_static_ls
   hs-source-dirs:
       app
   default-extensions:
@@ -144,6 +148,8 @@ test-suite static-ls-test
       TestImport.HieDb
       TestImport.TestData
       Paths_static_ls
+  autogen-modules:
+      Paths_static_ls
   hs-source-dirs:
       test
   default-extensions: