GitLab

Marge Bot pushed to branch wip/marge_bot_batch_merge_job at Glasgow Haskell Compiler / GHC

Commits:

1097d050

by Cheng Shao at 2026-01-24T00:11:01-05:00

ci: remove duplicate keys in .gitlab-ci.yml

This patch removes accidentally duplicate keys in `.gitlab-ci.yml`.
The YAML spec doesn't allow duplicate keys in the first place, and
according to GitLab docs
(https://docs.gitlab.com/ci/yaml/yaml_optimization/#anchors), the
latest key overrides the earlier entries.

79fd9a8c

by Cheng Shao at 2026-01-24T00:11:04-05:00

hadrian: drop obsolete configure/make builder logic for libffi

This patch drops obsolete hadrian logic around `Configure
libffiPath`/`Make libffiPath` builders, they are no longer needed
after libffi-clib has landed. Closes #26815.

709cdf16
by Simon Hengel at 2026-01-24T00:11:05-05:00
```
Fix typo in roles.rst
```

5 changed files:

.gitlab-ci.yml
docs/users_guide/exts/roles.rst
hadrian/src/Context.hs
hadrian/src/Settings/Builders/Configure.hs
hadrian/src/Settings/Builders/Make.hs

Changes:

.gitlab-ci.yml

@@ -1050,10 +1050,6 @@ abi-test:
        optional: true
    dependencies: null
    image: "registry.gitlab.haskell.org/ghc/ci-images/x86_64-linux-fedora43:$DOCKER_REV"
 -  rules:
 -    - if: $CI_MERGE_REQUEST_ID
 -    - if: '$CI_COMMIT_BRANCH == "master"'
 -    - if: '$CI_COMMIT_BRANCH =~ /ghc-[0.9]+\.[0-9]+/'
    tags:
      - x86_64-linux
    script:

docs/users_guide/exts/roles.rst

@@ -38,7 +38,7 @@ trouble.
  The way to identify such situations is to have *roles* assigned to type
  variables of datatypes, classes, and type synonyms.
 -Roles as implemented in GHC are a from a simplified version of the work
 +Roles as implemented in GHC are based on a simplified version of the work
  described in `Generative type abstraction and type-level
  computation <https://www.seas.upenn.edu/~sweirich/papers/popl163af-weirich.pdf>`__,
  published at POPL 2011.

hadrian/src/Context.hs

@@ -11,7 +11,7 @@ module Context (
      pkgLibraryFile,
      pkgConfFile, pkgStampFile, resourcePath, objectPath, contextPath, getContextPath, libPath, distDir,
      distDynDir,
 -    haddockStatsFilesDir, ensureConfigured, autogenPath, rtsContext, rtsBuildPath, libffiBuildPath
 +    haddockStatsFilesDir, ensureConfigured, autogenPath, rtsContext, rtsBuildPath
      ) where
  import Base
@@ -93,14 +93,6 @@ rtsContext stage = vanillaContext stage rts
  rtsBuildPath :: Stage -> Action FilePath
  rtsBuildPath stage = buildPath (rtsContext stage)
 --- | Build directory for in-tree 'libffi' library.
 -libffiBuildPath :: Stage -> Action FilePath
 -libffiBuildPath stage = buildPath $ Context
 -    stage
 -    libffi
 -    (error "libffiBuildPath: way not set.")
 -    (error "libffiBuildPath: inplace not set.")
+-
  pkgFileName :: Context -> Package -> String -> String -> Action FilePath
  pkgFileName context package prefix suffix = do
      pid  <- pkgUnitId (stage context) package

hadrian/src/Settings/Builders/Configure.hs

@@ -8,8 +8,7 @@ configureBuilderArgs :: Args
  configureBuilderArgs = do
      stage      <- getStage
      gmpPath    <- expr (gmpBuildPath stage)
 -    libffiPath <- expr (libffiBuildPath stage)
 -    mconcat [ builder (Configure gmpPath) ? do
 +    builder (Configure gmpPath) ? do
                  targetArch <- queryTarget queryArch
                  targetPlatform <- queryTarget targetPlatformTriple
                  buildPlatform <- queryBuild targetPlatformTriple
@@ -28,16 +27,3 @@ configureBuilderArgs = do
                       -- option.
                       <> [ "--enable-alloca=malloc-notreentrant" | targetArch == "wasm32" ]
                       <> [ "--with-pic=yes" ]
+-
 -            , builder (Configure libffiPath) ? do
 -                top            <- expr topDirectory
 -                targetPlatform <- queryTarget targetPlatformTriple
 -                way            <- getWay
 -                pure [ "--prefix=" ++ top -/- libffiPath -/- "inst"
 -                     , "--libdir=" ++ top -/- libffiPath -/- "inst/lib"
 -                     , "--enable-static=yes"
 -                     , "--enable-shared="
 -                            ++ (if wayUnit Dynamic way
 -                                    then "yes"
 -                                    else "no")
 -                     , "--host=" ++ targetPlatform ] ]

hadrian/src/Settings/Builders/Make.hs

@@ -12,12 +12,8 @@ makeBuilderArgs = do
      threads    <- shakeThreads <$> expr getShakeOptions
      stage      <- getStage
      gmpPath    <- expr (gmpBuildPath stage)
 -    libffiPaths <- forM [Stage1, Stage2, Stage3 ] $ \s -> expr (libffiBuildPath s)
      let t = show $ max 4 (threads - 2) -- Don't use all Shake's threads
 -    mconcat $
 -        (builder (Make gmpPath   ) ? pure ["MAKEFLAGS=-j" ++ t]) :
 -        [ builder (Make libffiPath) ? pure ["MAKEFLAGS=-j" ++ t, "install"]
 -        | libffiPath <- libffiPaths ]
 +    builder (Make gmpPath) ? pure ["MAKEFLAGS=-j" ++ t]
  validateBuilderArgs :: Args
  validateBuilderArgs = builder (Make "testsuite/tests") ? do