diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-15 17:39:51 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-15 20:31:06 +0100 |
commit | 35e7f0ba7365059d8b7df9cacd4e180fff3179c1 (patch) | |
tree | 4b570a273b91bb0343063adf4c722cb40577c975 /test | |
parent | 6d6efec9eef6ed274a9396fbcb00e08d275949e9 (diff) |
refactoring
Diffstat (limited to 'test')
-rw-r--r-- | test/runTests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index 45833f59..ef331966 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -89,7 +89,7 @@ arguments = | |||
89 | (,) <$> (Config <$> switch (short 'v' <> long "verbose" <> help "Verbose output during test runs") | 89 | (,) <$> (Config <$> switch (short 'v' <> long "verbose" <> help "Verbose output during test runs") |
90 | <*> switch (short 'r' <> long "reject" <> help "Reject test cases with missing, new or different .out files") | 90 | <*> switch (short 'r' <> long "reject" <> help "Reject test cases with missing, new or different .out files") |
91 | <*> option (realToFrac <$> (auto :: ReadM Double)) (value 60 <> short 't' <> long "timeout" <> help "Timeout for tests in seconds") | 91 | <*> option (realToFrac <$> (auto :: ReadM Double)) (value 60 <> short 't' <> long "timeout" <> help "Timeout for tests in seconds") |
92 | <*> option ((:[]) <$> eitherReader Right) (value [] <> short 'i' <> long "ignore" <> help "Ignore test") | 92 | <*> many (option (eitherReader Right) (short 'i' <> long "ignore" <> help "Ignore test")) |
93 | ) | 93 | ) |
94 | <*> many (strArgument idm) | 94 | <*> many (strArgument idm) |
95 | 95 | ||