From db5affcc2c1dd96562556034179c405d3c38b2c5 Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Sat, 17 Jun 2017 05:47:27 +0300 Subject: add --version flag to executables --- app/ListPaths.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'app/ListPaths.hs') diff --git a/app/ListPaths.hs b/app/ListPaths.hs index e075f9f..b7d9c37 100644 --- a/app/ListPaths.hs +++ b/app/ListPaths.hs @@ -12,12 +12,14 @@ import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Except (runExceptT) import Data.Maybe (fromMaybe) import Data.Monoid ((<>)) +import Data.Version (showVersion) import System.Directory (doesDirectoryExist) import System.Environment (lookupEnv) import System.IO.Error (ioError) import Options.Applicative +import qualified Paths_windows_env as Meta import qualified WindowsEnv import Utils.Path @@ -63,8 +65,13 @@ optionParser = Options main :: IO () main = execParser parser >>= listPaths where - parser = info (helper <*> optionParser) $ - fullDesc <> progDesc "List directories in your PATH" + parser = info (helper <*> versioner <*> optionParser) + $ fullDesc + <> progDesc "List directories in your PATH" + versioner = infoOption (showVersion Meta.version) + $ long "version" + <> help "Show version" + <> hidden listPaths :: Options -> IO () listPaths options = runExceptT doListPaths >>= either ioError return -- cgit v1.2.3