diff options
Diffstat (limited to '')
| -rw-r--r-- | app/UnsetEnv.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/app/UnsetEnv.hs b/app/UnsetEnv.hs index 5ab28d5..c1e904d 100644 --- a/app/UnsetEnv.hs +++ b/app/UnsetEnv.hs @@ -10,10 +10,12 @@ module Main (main) where import Control.Monad (void) import Control.Monad.Trans.Except (runExceptT) import Data.Monoid ((<>)) +import Data.Version (showVersion) import System.IO.Error (ioError) import Options.Applicative +import qualified Paths_windows_env as Meta import qualified WindowsEnv import Utils.Prompt @@ -44,8 +46,13 @@ optionParser = Options main :: IO () main = execParser parser >>= unsetEnv where - parser = info (helper <*> optionParser) $ - fullDesc <> progDesc "Delete environment variables" + parser = info (helper <*> versioner <*> optionParser) + $ fullDesc + <> progDesc "Delete environment variables" + versioner = infoOption (showVersion Meta.version) + $ long "version" + <> help "Show version" + <> hidden unsetEnv :: Options -> IO () unsetEnv options = runExceptT doUnsetEnv >>= either ioError return |