diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-01-18 12:14:40 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-09 02:53:05 -0500 |
| commit | f432d8c64058d3d00d917f0bc65feb1bf9f7aecb (patch) | |
| tree | b77623a3d7f15df6ce3796963bdb05034c5d27b1 /hadrian | |
| parent | 2ac784ab381aae936ee3be7c8685e0203ee4dbf6 (diff) | |
| download | haskell-f432d8c64058d3d00d917f0bc65feb1bf9f7aecb.tar.gz | |
hadrian: Fix --test-summary argument
This appears to be a cut-and-paste error.
Diffstat (limited to 'hadrian')
| -rw-r--r-- | hadrian/src/CommandLine.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/hadrian/src/CommandLine.hs b/hadrian/src/CommandLine.hs index afb791eb2a..00bfc5d910 100644 --- a/hadrian/src/CommandLine.hs +++ b/hadrian/src/CommandLine.hs @@ -52,7 +52,7 @@ data TestArgs = TestArgs , testConfigFile :: String , testConfigs :: [String] , testJUnit :: Maybe FilePath - , testMetrics :: Maybe FilePath + , testMetricsFile:: Maybe FilePath , testOnly :: [String] , testOnlyPerf :: Bool , testSkipPerf :: Bool @@ -72,7 +72,7 @@ defaultTestArgs = TestArgs , testConfigFile = "testsuite/config/ghc" , testConfigs = [] , testJUnit = Nothing - , testMetrics = Nothing + , testMetricsFile= Nothing , testOnly = [] , testOnlyPerf = False , testSkipPerf = False @@ -146,7 +146,7 @@ readTestJUnit :: Maybe String -> Either String (CommandLineArgs -> CommandLineAr readTestJUnit filepath = Right $ \flags -> flags { testArgs = (testArgs flags) { testJUnit = filepath } } readTestMetrics :: Maybe String -> Either String (CommandLineArgs -> CommandLineArgs) -readTestMetrics filepath = Right $ \flags -> flags { testArgs = (testArgs flags) { testMetrics = filepath } } +readTestMetrics filepath = Right $ \flags -> flags { testArgs = (testArgs flags) { testMetricsFile = filepath } } readTestOnly :: Maybe String -> Either String (CommandLineArgs -> CommandLineArgs) readTestOnly tests = Right $ \flags -> @@ -181,7 +181,7 @@ readTestSpeed ms = set flag flags = flags { testArgs = (testArgs flags) {testSpeed = flag} } readTestSummary :: Maybe String -> Either String (CommandLineArgs -> CommandLineArgs) -readTestSummary filepath = Right $ \flags -> flags { testArgs = (testArgs flags) { testJUnit = filepath } } +readTestSummary filepath = Right $ \flags -> flags { testArgs = (testArgs flags) { testSummary = filepath } } readTestVerbose :: Maybe String -> Either String (CommandLineArgs -> CommandLineArgs) readTestVerbose verbose = Right $ \flags -> flags { testArgs = (testArgs flags) { testVerbosity = verbose } } |