From ebfc8be95e83852081d8dc93d2bf4717df18583e Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 22 Dec 2021 21:45:45 +0100
Subject: print version information on --version

If --version is given, `walint` prints version information, then exists
with code 0.
---
 src/Main.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 32afb6a..9bc09ff 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -12,17 +12,19 @@ import           Data.Aeson               (eitherDecode, encode)
 import           Data.Aeson.Encode.Pretty (encodePretty)
 import           Data.Aeson.KeyMap        (coercionToHashMap)
 import qualified Data.ByteString.Lazy     as LB
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.IO as T
 import           Data.Maybe               (fromMaybe)
+import qualified Data.Text.Encoding       as T
+import qualified Data.Text.IO             as T
 import           System.Exit              (ExitCode (..), exitWith)
 import           WithCli
 
 import           CheckDir                 (recursiveCheckDir, resultIsFatal)
+import           Control.Monad            (when)
 import           LintConfig               (LintConfig (..), patchConfig)
 import           System.IO                (hPutStrLn, stderr)
 import           Types                    (Level (..))
 import           Util                     (printPretty)
+import qualified Version                  as V (version)
 import           WriteRepo                (writeAdjustedRepository)
 
 -- | the options this cli tool can take
@@ -43,6 +45,7 @@ data Options = Options
   -- ^ path to a config file. Currently required.
   , config     :: Maybe (LintConfig Maybe)
   -- ^ a "patch" for the configuration file
+  , version    :: Bool
   } deriving (Show, Generic, HasArguments)
 
 
@@ -53,6 +56,10 @@ run :: Options -> IO ()
 run options = do
   aesonWarning
 
+  when (version options) $ do
+    putStrLn V.version
+    exitWith ExitSuccess
+
   let repo = fromMaybe "." (repository options)
   let entry = fromMaybe "main.json" (entrypoint options)
   let level = fromMaybe Suggestion (lintlevel options)
-- 
cgit v1.2.3