diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2023-03-01 21:51:24 +0100 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-03-01 21:51:24 +0100 |
commit | df1cc5d142e8d0e332341b82eb581e77c328f687 (patch) | |
tree | 218aad7a946574b794a4658c36dbef59019e1c29 /src/Main.hs | |
parent | 8f4bb4eddb4dabf20a9256d406a1b9823a54879b (diff) |
Version information from git
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 404ecec..adb738e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -26,9 +26,6 @@ import System.Posix.Process import System.Posix.Signals import System.Process -import Paths_erebos_tester (version) -import Data.Version (showVersion) - import Config import GDB import Network @@ -38,6 +35,7 @@ import Process import Run.Monad import Test import Util +import Version withVar :: ExprType e => VarName -> e -> TestRun a -> TestRun a withVar name value = local (fmap $ \s -> s { tsVars = (name, SomeVarValue value) : tsVars s }) @@ -356,7 +354,7 @@ main = do where header = "Usage: erebos-tester [OPTION...]" when (optShowVersion opts) $ do - putStrLn $ "Erebos Tester version " <> showVersion version + putStrLn versionLine exitSuccess getPermissions (head $ words $ optDefaultTool $ optTest opts) >>= \perms -> do |