[ghc-9.14] add bootstrapped ghc@9.14.1

1 files changed, 64 insertions, 0 deletions

diff --git a/patches/packages-haskell-ghc-9.14.1-src-skip-test-flag.diff b/patches/packages-haskell-ghc-9.14.1-src-skip-test-flag.diff
new file mode 100644
index 0000000..1a5a365
--- /dev/null
+++ b/patches/packages-haskell-ghc-9.14.1-src-skip-test-flag.diff
@@ -0,0 +1,64 @@
+diff --git a/hadrian/src/CommandLine.hs b/hadrian/src/CommandLine.hs
+index 6b5688059158..39b5b475c52f 100644
+--- a/hadrian/src/CommandLine.hs
++++ b/hadrian/src/CommandLine.hs
+@@ -71,6 +71,7 @@ data TestArgs = TestArgs
+     , testJUnit      :: Maybe FilePath
+     , testMetricsFile:: Maybe FilePath
+     , testOnly       :: [String]
++    , testSkip       :: [String]
+     , testOnlyPerf   :: Bool
+     , testSkipPerf   :: Bool
+     , testRootDirs   :: [FilePath]
+@@ -100,6 +101,7 @@ defaultTestArgs = TestArgs
+     , testJUnit      = Nothing
+     , testMetricsFile= Nothing
+     , testOnly       = []
++    , testSkip       = []
+     , testOnlyPerf   = False
+     , testSkipPerf   = False
+     , testRootDirs   = []
+@@ -191,6 +193,13 @@ readTestOnly tests = Right $ \flags ->
+   where tests' = maybe [] words tests
+         tests'' flags = testOnly (testArgs flags) ++ tests'
+ 
++readTestSkip :: Maybe String -> Either String (CommandLineArgs -> CommandLineArgs)
++readTestSkip tests = Right $ \flags ->
++  flags { testArgs = (testArgs flags) { testSkip = tests'' flags } }
++
++  where tests' = maybe [] words tests
++        tests'' flags = testSkip (testArgs flags) ++ tests'
++
+ readTestOnlyPerf :: Either String (CommandLineArgs -> CommandLineArgs)
+ readTestOnlyPerf = Right $ \flags -> flags { testArgs = (testArgs flags) { testOnlyPerf = True } }
+ 
+@@ -306,6 +315,8 @@ optDescrs =
+       "Output testsuite performance metrics summary."
+     , Option [] ["only"] (OptArg readTestOnly "TESTS")
+       "Test cases to run."
++    , Option [] ["skip-test"] (OptArg readTestSkip "TESTS")
++      "Test cases to skip."
+     , Option [] ["only-perf"] (NoArg readTestOnlyPerf)
+       "Only run performance tests."
+     , Option [] ["skip-perf"] (NoArg readTestSkipPerf)
+diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs
+index 0531294ea961..b890282059b8 100644
+--- a/hadrian/src/Settings/Builders/RunTest.hs
++++ b/hadrian/src/Settings/Builders/RunTest.hs
+@@ -360,6 +360,7 @@ getTestArgs = do
+     haveDocs        <- willDocsBeBuilt
+     let configFileArg= ["--config-file=" ++ (testConfigFile args)]
+         testOnlyArg  =  map ("--only=" ++) (testOnly args ++ testEnvTargets)
++        testSkipArg  =  map ("--skip=" ++) (testSkip args)
+         onlyPerfArg  = if testOnlyPerf args
+                            then Just "--only-perf-tests"
+                            else Nothing
+@@ -399,6 +400,6 @@ getTestArgs = do
+         inTreeArg    = [ "-e", "config.in_tree_compiler=" ++
+           show (isInTreeCompiler (testCompiler args) || testHasInTreeFiles args) ]
+ 
+-    pure $  configFileArg ++ testOnlyArg ++ speedArg
++    pure $  configFileArg ++ testOnlyArg ++ testSkipArg ++ speedArg
+          ++ catMaybes [ onlyPerfArg, skipPerfArg, summaryArg
+                       , junitArg, metricsArg, verbosityArg  ]
+          ++ configArgs ++ wayArgs ++  compilerArg ++ ghcPkgArg
\ No newline at end of file