exit 0

   fi

   git fetch --depth=1 \

     "$CI_MERGE_REQUEST_PROJECT_URL" \

     "$CI_MERGE_REQUEST_DIFF_BASE_SHA"

     "$CI_MERGE_REQUEST_DIFF_BASE_SHA..$CI_COMMIT_SHA" -- \

     'changelog.d/' | grep -v '^changelog.d/config$' || true)

     error "No changelog entry found in changelog.d/"

     echo "If this MR does not need a changelog entry, apply the 'no-changelog' label."

     exit 1

   fi

   # Build changelog-d with the bootstrap compiler and validate all entries

   # (checks required fields, section names, and the MR number).

 synopsis:

   Don't drop `ExceptionContext` in `SomeException(toException)`

 description:

   semaphores); its reported protocol version remains v1.

   When GHC receives a ``-jsem`` name whose protocol version it does not

   falls back to ``-j1`` rather than crashing. ``ghc --info`` exposes the

   supported version in a new ``"Semaphore version"`` entry so

   cabal-install can detect a mismatch before invoking GHC.

 section: compiler

 synopsis: Use global ``UnitIndex`` to deduplicate ``UnitInfo``s over multiple home units

 description: {

     The ``UnitState`` used to be duplicated for all ``HomeUnitEnv``, not sharing any of the ``UnitInfo``s.

 where_decls :: { LocatedA (OrdList (LHsDecl GhcPs), EpToken "where", AnnList) }

         : 'where' '{' decls '}'       {% amsA' (sLL $1 $> (thdOf3 $ unLoc $3,

                                                 epTok $1,

         | 'where' vocurly decls close {% amsA' (sLL $1 $3 (thdOf3 $ unLoc $3,

                                                 epTok $1,

 pattern_synonym_sig :: { LSig GhcPs }

         : 'pattern' con_list '::' sigtype

         | {- empty -}                   { noLoc (noAnn, [],nilOL) }

 decllist :: { Located (AnnList,Located (OrdList (LHsDecl GhcPs))) }

                                                    ,sL1 $2 $ thdOf3 $ unLoc $2) }

         |     vocurly    decls close   { sL1 $2    (AnnList (AnnListLayout (fstOf3 $ unLoc $2)) ListNone (sndOf3 $ unLoc $2)

                                                    ,sL1 $2 $ thdOf3 $ unLoc $2) }

                                   ; return (sL1 $1 $ HsValBinds (EpAnn (glR $1) (AnnList la p s) cs, noEpTok) val_binds)} }

         | '{'            dbinds '}'     {% acs (comb3 $1 $2 $3) (\loc cs -> (L loc

         |     vocurly    dbinds close   {% acs (gl $2) (\loc cs -> (L loc

                                              $ HsIPBinds (EpAnn (glR $1) (AnnList (AnnListLayout $ glR $2) ListNone []) cs, noEpTok) (IPBinds noExtField (reverse $ unLoc $2)))) }

 altslist(PATS) :: { forall b. DisambECP b => PV (LocatedA ([LMatch GhcPs (LocatedA b)], AnnList)) }

         : '{'        alts(PATS) '}'    { $2 >>= \ $2 -> amsA'

                                            (sLL $1 $> (reverse (snd $ unLoc $2),

         | vocurly    alts(PATS)  close { $2 >>= \ $2 -> amsA'

                                            (L (getLoc $2) (reverse (snd $ unLoc $2),

                                            (AnnList (AnnListLayout $ glR $2) ListNone (fst $ unLoc $2)))) }

 alts(PATS) :: { forall b. DisambECP b => PV (Located ([EpToken ";"],[LMatch GhcPs (LocatedA b)])) }

         : alts1(PATS)              { $1 >>= \ $1 -> return $

 stmtlist :: { forall b. DisambECP b => PV (LocatedA (AnnList, Located [LocatedA (Stmt GhcPs (LocatedA b))])) }

         : '{'           stmts '}'       { $2 >>= \ $2 ->

                                                            , sL1 $2 $ reverse $ snd $ unLoc $2))}

         |     vocurly   stmts close     { $2 >>= \ $2 ->

                                           amsA' (L (stmtsLoc $2) (AnnList (AnnListLayout (spanAsAnchor $ stmtsLoc $2)) ListNone (fromOL $ fst $ unLoc $2)

   isWireMapEmpty,

   lookupWireMap,

   listWireMap,

   -- * 'UnwireMap'

   UnwireMap,

   emptyUnwireMap,

 listWireMap :: WireMap -> [(UnitId, UnitId)]

 listWireMap (WireMap wmap) = nonDetUniqMapToList wmap

 -- | The reverse of 'WireMap'.

 -- Records the mapping from the wired-in 'UnitId' to the on-disk 'UnitId'.

 newtype UnwireMap =

 emptyTrustOverlay :: TrustOverlay

 emptyTrustOverlay = TrustOverlay emptyUniqMap

 {-

 Note [Sharing 'UnitInfo's across the 'UnitEnv']

 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

          , explicitUnits                = explicit_pkgs

          , homeUnitDepends              = home_unit_deps

          , unitInfoMap                  = pkg_db

          , moduleNameProvidersMap       = mod_map

          , pluginModuleNameProvidersMap = mkModuleNameProvidersMap logger (unitConfigAllowVirtual cfg) pkg_db plugin_vis_map

          , packageNameMap               = pkgname_map

 import GHC.TopHandler ( topHandler )

 import qualified GHC.Unit.Module.Graph as GHC

 -----------------------------------------------------------------------------

       result <- liftIO $

         Finder.findImportedModule hsc_env Finder.LookupUser m NoPkgQual

       case result of

         _ -> do reportError (GhciModuleError $ GhciModuleNotFound (moduleNameString m))

                 return False

   * Add `Data.List.NonEmpty.{zip{3..7},zipWith{3..7},unzip{3..7}}` ([CLC proposal #409)(https://github.com/haskell/core-libraries-committee/issues/409))

   * Ensure that `Data.List.elem` and `notElem` can be specialized even when no list fusion happens. ([CLC proposal #412)(https://github.com/haskell/core-libraries-committee/issues/412))

   * Introduce `Data.Double` and `Data.Float` modules. ([CLC proposal #378](https://github.com/haskell/core-libraries-committee/issues/378))

   * Change `Generically a`'s `Monoid` definition to require a `Semigroup` constraint, and define its `mconcat` using `(<>)` from that constraint. ([CLC proposal #413](https://github.com/haskell/core-libraries-committee/issues/413))

   * Add `withEmptyCallStack` to `GHC.Stack`. ([CLC proposal #428](https://github.com/haskell/core-libraries-committee/issues/428))

   * Add new `Data.RealFloat` module re-exporting `RealFloat` from `GHC.Float` ([CLC proposal #394](https://github.com/haskell/core-libraries-committee/issues/394))

     {-# MINIMAL (.&.), (.|.), xor, complement,

                 (shift | (shiftL, shiftR)),

                 (rotate | (rotateL, rotateR)),

     -- | Bitwise \"and\"

     (.&.) :: a -> a -> a

      ghci_script,

      ['GhciPackageRename.script'])

 test('T26233', normal, ghci_script, ['T26233.script'])

                        ((,)

                         (Right

                          (AnnList

                           (ListBraces

                            (EpTok (EpaSpan { DumpSemis.hs:11:6 }))

                            (EpTok (EpaSpan { DumpSemis.hs:11:15 })))

                  ((,)

                   (Right

                    (AnnList

                     (ListBraces

                      (EpTok (EpaSpan { DumpSemis.hs:16:3 }))

                      (EpTok (EpaSpan { DumpSemis.hs:19:3 })))

                  ((,)

                   (Right

                    (AnnList

                     (ListBraces

                      (EpTok (EpaSpan { DumpSemis.hs:22:10 }))

                      (EpTok (EpaSpan { DumpSemis.hs:22:30 })))

                    (EpAnn

                     (EpaSpan { DumpSemis.hs:34:13-31 })

                     (AnnList

                      (ListBraces

                       (EpTok (EpaSpan { DumpSemis.hs:34:13 }))

                       (EpTok (EpaSpan { DumpSemis.hs:34:31 })))

                   ((,)

                    (FromSource)

                    (AnnList

                     (ListBraces

                      (EpTok (EpaSpan { DumpSemis.hs:38:4 }))

                      (EpTok (EpaSpan { DumpSemis.hs:44:4 })))