diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-01-18 12:14:40 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-02-06 11:06:28 -0500 |
| commit | 54c9766a3913366690f47d66c36579d21c86385e (patch) | |
| tree | b89a5bfe5b5fdcddbcbba195cab959853dded391 | |
| parent | 31ffb1548f64f19363e77a9a4103df74dca021c2 (diff) | |
| download | haskell-wip/hadrian-metrics.tar.gz | |
hadrian: Fix --test-summary argumentwip/hadrian-metrics
This appears to be a cut-and-paste error.
| -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 } } |