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 |