September 2025 - ghc-commits

[Git][ghc/ghc][wip/spj-apporv-Oct24] This commit:
by Apoorv Ingle (＠ani) 15 Sep '25

15 Sep '25

Apoorv Ingle pushed to branch wip/spj-apporv-Oct24 at Glasgow Haskell Compiler / GHC Commits: 33b75f97 by Apoorv Ingle at 2025-09-14T22:39:30-05:00 This commit: - Streamlines implementations of `tcExpr` and `tcXExpr` to work on `XExpr` Calls `setInGeneratedCode` everytime the typechecker goes over an `XExpr` - Kills `VACtxt` (and its associated VAExpansion and VACall) datatype, it is subsumed by simply a SrcSpan. - Kills the function `addHeadCtxt` as it is now mearly setting a location - The function `tcValArgs` does its own argument number management - Makes `splitHsApps` not look through `XExpr` - `tcExprSigma` is called if the head of the expression after calling `splitHsApps` turns out to be an `XExpr` - Removes location information from `OrigPat` payload - Removes special case of tcBody from `tcLambdaMatches` - Removes special case of `dsExpr` for `ExpandedThingTc` - Moves `setQLInstLevel` inside `tcInstFun` - Rename `HsThingRn` to `SrcCodeCtxt` - Kills `tcl_in_gen_code` and `tcl_err_ctxt`. It is subsumed by `ErrCtxtStack` - Kills `ExpectedFunTyOrig`. It is subsumed by `CtOrigin` - Fixes `CtOrigin` for `HsProjection` case in `exprCtOrigin`. It was previously assigned to be `SectionOrigin`. It is now just the expression - Adds a new `CtOrigin.ExpansionOrigin` for storing the original syntax - Adds a new `CtOrigin.ExpectedTySyntax` as a replacement for `ExpectedTySyntaxOp`. Cannot kill the former yet because of `ApplicativeDo` - Renames `tcMonoExpr` -> `tcMonoLExpr`, `tcMonoExprNC` -> `tcMonoLExpr` - Renames `EValArg`, `EValArgQL` fields: `ea_ctxt` -> `ea_loc_span` and `eaql_ctx` -> `eaql_loc_span` Notes added [Error Context Stack] Notes updated Note [Expanding HsDo with XXExprGhcRn] ------------------------- Metric Decrease: T9020 ------------------------- - - - - - 60 changed files: - compiler/GHC/Hs.hs - compiler/GHC/Hs/Expr.hs - compiler/GHC/Hs/Instances.hs - compiler/GHC/HsToCore/Expr.hs - compiler/GHC/HsToCore/Match.hs - compiler/GHC/HsToCore/Pmc.hs - compiler/GHC/HsToCore/Quote.hs - compiler/GHC/HsToCore/Ticks.hs - compiler/GHC/Rename/Expr.hs - compiler/GHC/Tc/Errors.hs - compiler/GHC/Tc/Errors/Ppr.hs - compiler/GHC/Tc/Gen/App.hs - + compiler/GHC/Tc/Gen/App.hs-boot - compiler/GHC/Tc/Gen/Do.hs - compiler/GHC/Tc/Gen/Expr.hs - compiler/GHC/Tc/Gen/Expr.hs-boot - compiler/GHC/Tc/Gen/Head.hs - compiler/GHC/Tc/Gen/Match.hs - compiler/GHC/Tc/Gen/Pat.hs - compiler/GHC/Tc/Instance/Class.hs - compiler/GHC/Tc/Types/ErrCtxt.hs - compiler/GHC/Tc/Types/LclEnv.hs - compiler/GHC/Tc/Types/Origin.hs - compiler/GHC/Tc/Utils/Monad.hs - compiler/GHC/Tc/Utils/Unify.hs - + testsuite/tests/deSugar/should_compile/T10662 - testsuite/tests/default/default-fail05.stderr - + testsuite/tests/ghci.debugger/Do - + testsuite/tests/ghci.debugger/Do.hs - + testsuite/tests/ghci.debugger/T25996.hs - testsuite/tests/indexed-types/should_fail/T2693.stderr - testsuite/tests/indexed-types/should_fail/T5439.stderr - testsuite/tests/parser/should_fail/RecordDotSyntaxFail10.stderr - testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr - testsuite/tests/plugins/test-defaulting-plugin.stderr - testsuite/tests/polykinds/T13393.stderr - testsuite/tests/printer/T17697.stderr - testsuite/tests/rep-poly/RepPolyDoBind.stderr - testsuite/tests/rep-poly/RepPolyDoBody1.stderr - testsuite/tests/rep-poly/RepPolyDoBody2.stderr - testsuite/tests/rep-poly/RepPolyRecordUpdate.stderr - testsuite/tests/typecheck/should_compile/T14590.stderr - + testsuite/tests/typecheck/should_compile/T25996.hs - testsuite/tests/typecheck/should_compile/valid_hole_fits.stderr - testsuite/tests/typecheck/should_fail/DoExpansion1.stderr - testsuite/tests/typecheck/should_fail/DoExpansion2.stderr - testsuite/tests/typecheck/should_fail/T10971d.stderr - testsuite/tests/typecheck/should_fail/T13311.stderr - testsuite/tests/typecheck/should_fail/T24064.stderr - + testsuite/tests/typecheck/should_fail/T25970.hs - + testsuite/tests/typecheck/should_fail/T25996.hs - testsuite/tests/typecheck/should_fail/T3323.stderr - testsuite/tests/typecheck/should_fail/T3613.stderr - testsuite/tests/typecheck/should_fail/T7851.stderr - testsuite/tests/typecheck/should_fail/T8603.stderr - testsuite/tests/typecheck/should_fail/T9612.stderr - testsuite/tests/typecheck/should_fail/tcfail102.stderr - testsuite/tests/typecheck/should_fail/tcfail128.stderr - testsuite/tests/typecheck/should_fail/tcfail168.stderr - testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr The diff was not included because it is too large. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/33b75f979a10f5882a6ec3dd2c52837… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/33b75f979a10f5882a6ec3dd2c52837… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/spj-apporv-Oct24] 28 commits: Handle heap allocation failure in I/O primops
by Apoorv Ingle (＠ani) 15 Sep '25

15 Sep '25

Apoorv Ingle pushed to branch wip/spj-apporv-Oct24 at Glasgow Haskell Compiler / GHC Commits: 62ae97de by Duncan Coutts at 2025-09-12T13:23:33-04:00 Handle heap allocation failure in I/O primops The current I/O managers do not use allocateMightFail, but future ones will. To support this properly we need to be able to return to the primop with a failure. We simply use a bool return value. Currently however, we will just throw an exception rather than calling the GC because that's what all the other primops do too. For the general issue of primops invoking GC and retrying, see https://gitlab.haskell.org/ghc/ghc/-/issues/24105 - - - - - cb9093f5 by Duncan Coutts at 2025-09-12T13:23:33-04:00 Move (and rename) scheduleStartSignalHandlers into RtsSignals.h Previously it was a local helper (static) function in Schedule.c. Rename it to startPendingSignalHandlers and deifine it as an inline header function in RtsSignals.h. So it should still be fast. Each (new style) I/O manager is going to need to do the same, so eliminating the duplication now makes sense. - - - - - 9736d44a by Duncan Coutts at 2025-09-12T13:23:33-04:00 Reduce detail in printThreadBlockage I/O blocking cases The printThreadBlockage is used in debug tracing output. For the cases BlockedOn{Read,Write,Delay} the output previously included the fd that was being waited on, and the delay target wake time. Superficially this sounds useful, but it's clearly not that useful because it was already wrong for the Win32 non-threaded I/O manager. In that situation it will print garbage (the async_result pointer, cast to a fd or a time). So given that it apparently never mattered that the information was accurate, then it's hardly a big jump to say it doesn't matter if it is present at all. A good reason to remove it is that otherwise we have to make a new API and a per-I/O manager implementation to fetch the information. And for some I/O manager implementations, this information is not available. It is not available in the win32 non-threaded I/O manager. And for some future Linux ones, there is no need for the fd to be stored, so storing it would be just extra space used for very little gain. So the simplest thing is to just remove the detail. - - - - - bc0f2d5d by Duncan Coutts at 2025-09-12T13:23:33-04:00 Add TimeoutQueue.{c,h} and corresponding tests A data structure used to efficiently manage a collection of timeouts. It is a priority queue based on absolute expiry time. It uses 64bit high-precision Time for the keys. The values are normal closures which allows for example using MVars for unblocking. It is common in many applications for timeouts to be created and then deleted or altered before they expire. Thus the choice of data structure for timeouts should support this efficiently. The implementation choice here is a leftist heap with the extra feature that it supports deleting arbitrary elements, provided the caller retain a pointer to the element. While the deleteMin operation takes O(log n) time, as in all heap structures, the delete operation for arbitrary elements /typically/ takes O(1), and only O(log n) in the worst case. In practice, when managing thousands of timeouts it can be a factor of 10 faster to delete a random timeout queue element than to remove the minimum element. This supports the common use case. The plan is to use it in some of the RTS-side I/O managers to support their timer functionality. In this use case the heap value will be an MVar used for each timeout to unblock waiting threads. - - - - - d1679c9d by Duncan Coutts at 2025-09-12T13:23:33-04:00 Add ClosureTable.{c,h} and corresponding tests A table of pointers to closures on the GC heap with stable indexes. It provides O(1) alloc, free and lookup. The table can be expanded using a simple doubling strategy: in which case allocation is typically O(1) and occasionally O(n) for overall amortised O(1). No shrinking is used. The table itself is heap allocated, and points to other heap objects. As such it's necessary to use markClosureTable to ensure the table is used as a GC root to keep the table entries alive, and maintain proper pointers to them as the GC moves heap objects about. It is designed to be allocated and accesses exclusively from a single capability, enabling it to work without any locking. It is thus similar to the StablePtr table, but per-capability which removes the need for locking. It _should_ also provide lower GC pause times with the non-moving GC by spending only O(1) time in markClosureTable, vs O(n) for markStablePtrTable. The plan is to use it in some of the I/O managers to keep track of in-flight I/O operations (but not timers). This allows the tracking info to be kept on the (unpinned) GC heap, and shared with Haskell code, and by putting a pointer to the tracking information in a table, the index remains stable and can be passed via foreign code (like the kernel). - - - - - 78cb8dd5 by Duncan Coutts at 2025-09-12T13:23:33-04:00 Add the StgAsyncIOOp closure type This is intended to be used by multiple I/O managers to help with tracking in-flight I/O operations. It is called asynchronous because from the point of view of the RTS we have many such operations in progress at once. From the point of view of a Haskell thread of course it can look synchronous. - - - - - a2839896 by Duncan Coutts at 2025-09-12T13:23:33-04:00 Add StgAsyncIOOp and StgTimeoutQueue to tso->block_info These will be used by new I/O managers, for threads blocked on I/O or timeouts. - - - - - fdc2451c by Duncan Coutts at 2025-09-12T13:23:33-04:00 Add a new I/O manager based on poll() This is a proof of concept I/O manager, to show how to add new ones neatly, using the ClosureTable and TimeoutQueue infrastructure. It uses the old unix poll() API, so it is of course limited in performance by that, but it should have the benefit of wide compatibility. Also we neatly avoid a name clash with the existing select() I/O manager. Compared to the select() I/O manager: 1. beause it uses poll() it is not limited to 1024 file descriptors (but it's still O(n) so don't expect great performance); 2. it should have much faster threadDelay (when using it in lots of threads at once) because it's based on the new TimeoutQueue which is O(log n) rather than O(n). Some of the code related to timers/timouts is put into a shared module rts/posix/Timeout.{h,c} since it is intended to be shared with other similar I/O managers. - - - - - 6c273b76 by Duncan Coutts at 2025-09-12T13:23:34-04:00 Document the I/O managers in the user guide and note the new poll I/O manager in the release notes. - - - - - 824fab74 by Duncan Coutts at 2025-09-12T13:23:34-04:00 Use the poll() I/O manager by default That is, for the non-threaded RTS, prefer the poll I/O manager over the legacy select() one, if both can be enabled. This patch is primarily for CI testing, so we should probably remove this patch before merging. We can change defaults later after wider testing and feedback. - - - - - 39392532 by Luite Stegeman at 2025-09-12T13:24:16-04:00 Support larger unboxed sums Change known constructor encoding for sums in interfaces to use 11 bits for both the arity and the alternative (up from 8 and 6, respectively) - - - - - 2af12e21 by Luite Stegeman at 2025-09-12T13:24:16-04:00 Decompose padding smallest-first in Cmm toplevel data constructors This makes each individual padding value aligned - - - - - 418fa78f by Luite Stegeman at 2025-09-12T13:24:16-04:00 Use slots smaller than word as tag for smaller unboxed sums This packs unboxed sums more efficiently by allowing Word8, Word16 and Word32 for the tag field if the number of constructors is small enough - - - - - 8d7e912f by Rodrigo Mesquita at 2025-09-12T17:57:24-04:00 ghc-toolchain: Use ByteOrder rather than new Endianness Don't introduce a duplicate datatype when the previous one is equivalent and already used elsewhere. This avoids unnecessary translation between the two. - - - - - 7d378476 by Rodrigo Mesquita at 2025-09-12T17:57:24-04:00 Read Toolchain.Target files rather than 'settings' This commit makes GHC read `lib/targets/default.target`, a file with a serialized value of `ghc-toolchain`'s `GHC.Toolchain.Target`. Moreover, it removes all the now-redundant entries from `lib/settings` that are configured as part of a `Target` but were being written into `settings`. This makes it easier to support multiple targets from the same compiler (aka runtime retargetability). `ghc-toolchain` can be re-run many times standalone to produce a `Target` description for different targets, and, in the future, GHC will be able to pick at runtime amongst different `Target` files. This commit only makes it read the default `Target` configured in-tree or configured when installing the bindist. The remaining bits of `settings` need to be moved to `Target` in follow up commits, but ultimately they all should be moved since they are per-target relevant. Fixes #24212 On Windows, the constant overhead of parsing a slightly more complex data structure causes some small-allocation tests to wiggle around 1 to 2 extra MB (1-2% in these cases). ------------------------- Metric Increase: MultiLayerModulesTH_OneShot T10421 T10547 T12234 T12425 T13035 T18140 T18923 T9198 TcPlugin_RewritePerf ------------------------- - - - - - e0780a16 by Rodrigo Mesquita at 2025-09-12T17:57:24-04:00 ghc-toolchain: Move TgtHasLibm to per-Target file TargetHasLibm is now part of the per-target configuration Towards #26227 - - - - - 8235dd8c by Rodrigo Mesquita at 2025-09-12T17:57:24-04:00 ghc-toolchain: Move UseLibdw to per-Target file To support DWARF unwinding, the RTS must be built with the -f+libdw flag and with the -DUSE_LIBDW macro definition. These flags are passed on build by Hadrian when --enable-dwarf-unwinding is specified at configure time. Whether the RTS was built with support for DWARF is a per-target property, and as such, it was moved to the per-target GHC.Toolchain.Target.Target file. Additionally, we keep in the target file the include and library paths for finding libdw, since libdw should be checked at configure time (be it by configure, or ghc-toolchain, that libdw is properly available). Preserving the user-given include paths for libdw facilitates in the future building the RTS on demand for a given target (if we didn't keep that user input, we couldn't) Towards #26227 - - - - - d5ecf2e8 by Rodrigo Mesquita at 2025-09-12T17:57:25-04:00 ghc-toolchain: Make "Support SMP" a query on a Toolchain.Target "Support SMP" is merely a function of target, so we can represent it as such in `ghc-toolchain`. Hadrian queries the Target using this predicate to determine how to build GHC, and GHC queries the Target similarly to report under --info whether it "Support SMP" Towards #26227 - - - - - e07b031a by Rodrigo Mesquita at 2025-09-12T17:57:25-04:00 ghc-toolchain: Make "tgt rts linker only supports shared libs" function on Target Just like with "Support SMP", "target RTS linker only supports shared libraries" is a predicate on a `Target` so we can just compute it when necessary from the given `Target`. Towards #26227 - - - - - 14123ee6 by Simon Peyton Jones at 2025-09-12T17:58:07-04:00 Solve forall-constraints via an implication, again In this earlier commit: commit 953fd8f1dc080f1c56e3a60b4b7157456949be29 Author: Simon Peyton Jones <simon.peytonjones(a)gmail.com> Date: Mon Jul 21 10:06:43 2025 +0100 Solve forall-constraints immediately, or not at all I used a all-or-nothing strategy for quantified constraints (aka forall-constraints). But alas that fell foul of #26315, and #26376. So this MR goes back to solving a quantified constraint by turning it into an implication; UNLESS we are simplifying constraints from a SPECIALISE pragma, in which case the all-or-nothing strategy is great. See: Note [Solving a Wanted forall-constraint] Other stuff in this MR: * TcSMode becomes a record of flags, rather than an enumeration type; much nicer. * Some fancy footwork to avoid error messages worsening again (The above MR made them better; we want to retain that.) See `GHC.Tc.Errors.Ppr.pprQCOriginExtra`. ------------------------- Metric Decrease: T24471 ------------------------- - - - - - e6c192e2 by Simon Peyton Jones at 2025-09-12T17:58:07-04:00 Add a test case for #26396 ...same bug ast #26315 - - - - - 8f3d80ff by Luite Stegeman at 2025-09-13T08:43:09+02:00 Use mkVirtHeapOffsets for reconstructing terms in RTTI This makes mkVirtHeapOffsets the single source of truth for finding field offsets in closures. - - - - - eb389338 by Luite Stegeman at 2025-09-13T08:43:09+02:00 Sort non-pointer fields by size for more efficient packing This sorts non-pointer fields in mkVirtHeapOffsets, always storing the largest field first. The relative order of equally sized fields remains unchanged. This reduces wasted padding/alignment space in closures with differently sized fields. - - - - - 99b233f4 by Alison at 2025-09-13T16:51:04-04:00 ghc-heap: Fix race condition with profiling builds Apply the same fix from Closures.hs (64fd0fac83) to Heap.hs by adding empty imports to make way-dependent dependencies visible to `ghc -M`. Fixes #15197, #26407 - - - - - 77deaa7a by Cheng Shao at 2025-09-14T21:29:45-04:00 hadrian: build in-tree gmp with -fvisibility=hidden When hadrian builds in-tree gmp, it should build the shared objects with -fvisibility=hidden. The gmp symbols are only used by bignum logic in ghc-internal and shouldn't be exported by the ghc-internal shared library. We should always strive to keep shared library symbol table lean, which benefits platforms with slow dynamic linker or even hard limits about how many symbols can be exported (e.g. macos dyld, win32 dll and wasm dyld). - - - - - 42a18960 by Cheng Shao at 2025-09-14T21:30:26-04:00 Revert "wasm: add brotli compression for ghci browser mode" This reverts commit 731217ce68a1093b5f9e26a07d5bd2cdade2b352. Benchmarks show non-negligible overhead when browser runs on the same host, which is the majority of actual use cases. - - - - - e6755b9f by Cheng Shao at 2025-09-14T21:30:26-04:00 wasm: remove etag logic in ghci browser mode web server This commit removes the etag logic in dyld script's ghci browser mode web server. It was meant to support caching logic of wasm shared libraries, but even if the port is manually specified to make caching even relevant, for localhost the extra overhead around etag logic is simply not worth it according to benchmarks. - - - - - fc752317 by Apoorv Ingle at 2025-09-14T22:30:20-05:00 This commit: - Streamlines implementations of `tcExpr` and `tcXExpr` to work on `XExpr` Calls `setInGeneratedCode` everytime the typechecker goes over an `XExpr` - Kills `VACtxt` (and its associated VAExpansion and VACall) datatype, it is subsumed by simply a SrcSpan. - Kills the function `addHeadCtxt` as it is now mearly setting a location - The function `tcValArgs` does its own argument number management - Makes `splitHsApps` not look through `XExpr` - `tcExprSigma` is called if the head of the expression after calling `splitHsApps` turns out to be an `XExpr` - Removes location information from `OrigPat` payload - Removes special case of tcBody from `tcLambdaMatches` - Removes special case of `dsExpr` for `ExpandedThingTc` - Moves `setQLInstLevel` inside `tcInstFun` - Rename `HsThingRn` to `SrcCodeCtxt` - Kills `tcl_in_gen_code` and `tcl_err_ctxt`. It is subsumed by `ErrCtxtStack` - Kills `ExpectedFunTyOrig`. It is subsumed by `CtOrigin` - Fixes `CtOrigin` for `HsProjection` case in `exprCtOrigin`. It was previously assigned to be `SectionOrigin`. It is now just the expression - Adds a new `CtOrigin.ExpansionOrigin` for storing the original syntax - Adds a new `CtOrigin.ExpectedTySyntax` as a replacement for `ExpectedTySyntaxOp`. Cannot kill the former yet because of `ApplicativeDo` - Renames `tcMonoExpr` -> `tcMonoLExpr`, `tcMonoExprNC` -> `tcMonoLExpr` - Renames `EValArg`, `EValArgQL` fields: `ea_ctxt` -> `ea_loc_span` and `eaql_ctx` -> `eaql_loc_span` Notes added [Error Context Stack] Notes updated Note [Expanding HsDo with XXExprGhcRn] ------------------------- Metric Decrease: T9020 ------------------------- - - - - - 196 changed files: - compiler/GHC/Builtin/Uniques.hs - compiler/GHC/Cmm/Utils.hs - compiler/GHC/Driver/DynFlags.hs - compiler/GHC/Driver/Session.hs - compiler/GHC/Hs.hs - compiler/GHC/Hs/Expr.hs - compiler/GHC/Hs/Instances.hs - compiler/GHC/HsToCore/Binds.hs - compiler/GHC/HsToCore/Expr.hs - compiler/GHC/HsToCore/Match.hs - compiler/GHC/HsToCore/Pmc.hs - compiler/GHC/HsToCore/Quote.hs - compiler/GHC/HsToCore/Ticks.hs - compiler/GHC/Rename/Expr.hs - compiler/GHC/Runtime/Heap/Inspect.hs - compiler/GHC/Settings.hs - compiler/GHC/Settings/IO.hs - compiler/GHC/Stg/Unarise.hs - compiler/GHC/StgToCmm/DataCon.hs - compiler/GHC/StgToCmm/Layout.hs - compiler/GHC/SysTools/BaseDir.hs - compiler/GHC/Tc/Deriv/Utils.hs - compiler/GHC/Tc/Errors.hs - compiler/GHC/Tc/Errors/Ppr.hs - compiler/GHC/Tc/Gen/App.hs - + compiler/GHC/Tc/Gen/App.hs-boot - compiler/GHC/Tc/Gen/Do.hs - compiler/GHC/Tc/Gen/Expr.hs - compiler/GHC/Tc/Gen/Expr.hs-boot - compiler/GHC/Tc/Gen/Head.hs - compiler/GHC/Tc/Gen/Match.hs - compiler/GHC/Tc/Gen/Pat.hs - compiler/GHC/Tc/Gen/Sig.hs - compiler/GHC/Tc/Instance/Class.hs - compiler/GHC/Tc/Solver.hs - compiler/GHC/Tc/Solver/Default.hs - compiler/GHC/Tc/Solver/Dict.hs - compiler/GHC/Tc/Solver/Equality.hs - compiler/GHC/Tc/Solver/InertSet.hs - compiler/GHC/Tc/Solver/Monad.hs - compiler/GHC/Tc/Solver/Solve.hs - compiler/GHC/Tc/Solver/Solve.hs-boot - compiler/GHC/Tc/Types/Constraint.hs - compiler/GHC/Tc/Types/ErrCtxt.hs - compiler/GHC/Tc/Types/Evidence.hs - compiler/GHC/Tc/Types/LclEnv.hs - compiler/GHC/Tc/Types/Origin.hs - compiler/GHC/Tc/Utils/Monad.hs - compiler/GHC/Tc/Utils/Unify.hs - compiler/GHC/Tc/Zonk/TcType.hs - compiler/GHC/Tc/Zonk/Type.hs - compiler/GHC/Types/RepType.hs - compiler/ghc.cabal.in - configure.ac - distrib/configure.ac.in - docs/users_guide/9.16.1-notes.rst - docs/users_guide/runtime_control.rst - hadrian/bindist/Makefile - hadrian/bindist/config.mk.in - hadrian/cfg/default.host.target.in - hadrian/cfg/default.target.in - hadrian/cfg/system.config.in - hadrian/src/Base.hs - hadrian/src/Oracles/Flag.hs - hadrian/src/Oracles/Setting.hs - hadrian/src/Rules/Generate.hs - hadrian/src/Rules/Gmp.hs - hadrian/src/Settings/Packages.hs - libraries/base/src/GHC/RTS/Flags.hs - libraries/ghc-boot/GHC/Settings/Utils.hs - libraries/ghc-boot/ghc-boot.cabal.in - libraries/ghc-heap/GHC/Exts/Heap.hs - libraries/ghc-internal/src/GHC/Internal/RTS/Flags.hsc - libraries/ghc-internal/src/GHC/Internal/ResponseFile.hs - m4/fp_find_libdw.m4 - − m4/fp_settings.m4 - m4/fp_setup_windows_toolchain.m4 - m4/ghc_toolchain.m4 - m4/prep_target_file.m4 - + m4/subst_tooldir.m4 - mk/hsc2hs.in - + rts/ClosureTable.c - + rts/ClosureTable.h - rts/IOManager.c - rts/IOManager.h - rts/IOManagerInternals.h - rts/PrimOps.cmm - rts/RtsSignals.h - rts/Schedule.c - rts/StgMiscClosures.cmm - rts/Threads.c - + rts/TimeoutQueue.c - + rts/TimeoutQueue.h - rts/configure.ac - rts/include/rts/Constants.h - rts/include/rts/Flags.h - rts/include/rts/storage/Closures.h - rts/include/rts/storage/TSO.h - rts/include/stg/MiscClosures.h - + rts/posix/Poll.c - + rts/posix/Poll.h - + rts/posix/Timeout.c - + rts/posix/Timeout.h - rts/rts.cabal - testsuite/tests/backpack/should_fail/bkpfail11.stderr - testsuite/tests/backpack/should_fail/bkpfail43.stderr - testsuite/tests/codeGen/should_compile/T25166.stdout → testsuite/tests/codeGen/should_compile/T25166.stdout-ws-32 - + testsuite/tests/codeGen/should_compile/T25166.stdout-ws-64 - testsuite/tests/codeGen/should_run/T13825-unit.hs - + testsuite/tests/deSugar/should_compile/T10662 - testsuite/tests/default/default-fail05.stderr - + testsuite/tests/deriving/should_compile/T26396.hs - testsuite/tests/deriving/should_compile/all.T - testsuite/tests/deriving/should_fail/T12768.stderr - testsuite/tests/deriving/should_fail/T1496.stderr - testsuite/tests/deriving/should_fail/T21302.stderr - testsuite/tests/deriving/should_fail/T22696b.stderr - testsuite/tests/deriving/should_fail/T5498.stderr - testsuite/tests/deriving/should_fail/T7148.stderr - testsuite/tests/deriving/should_fail/T7148a.stderr - testsuite/tests/ghc-api/T20757.hs - testsuite/tests/ghc-api/settings-escape/T24265.hs - testsuite/tests/ghc-api/settings-escape/T24265.stderr - + testsuite/tests/ghc-api/settings-escape/ghc-install-folder/lib with spaces/targets/.gitkeep - + testsuite/tests/ghci.debugger/Do - + testsuite/tests/ghci.debugger/Do.hs - + testsuite/tests/ghci.debugger/T25996.hs - testsuite/tests/impredicative/T17332.stderr - testsuite/tests/indexed-types/should_fail/T2693.stderr - testsuite/tests/indexed-types/should_fail/T5439.stderr - testsuite/tests/interface-stability/ghc-experimental-exports.stdout - testsuite/tests/interface-stability/ghc-experimental-exports.stdout-mingw32 - testsuite/tests/parser/should_fail/RecordDotSyntaxFail10.stderr - testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr - testsuite/tests/plugins/test-defaulting-plugin.stderr - testsuite/tests/polykinds/T13393.stderr - testsuite/tests/printer/T17697.stderr - testsuite/tests/quantified-constraints/T19690.stderr - testsuite/tests/quantified-constraints/T19921.stderr - testsuite/tests/quantified-constraints/T21006.stderr - testsuite/tests/rep-poly/RepPolyDoBind.stderr - testsuite/tests/rep-poly/RepPolyDoBody1.stderr - testsuite/tests/rep-poly/RepPolyDoBody2.stderr - testsuite/tests/rep-poly/RepPolyRecordUpdate.stderr - testsuite/tests/roles/should_fail/RolesIArray.stderr - + testsuite/tests/rts/ClosureTable.hs - + testsuite/tests/rts/ClosureTable_c.c - + testsuite/tests/rts/TimeoutQueue.c - + testsuite/tests/rts/TimeoutQueue.stdout - testsuite/tests/rts/all.T - testsuite/tests/simplCore/should_compile/DsSpecPragmas.hs - testsuite/tests/simplCore/should_compile/DsSpecPragmas.stderr - testsuite/tests/typecheck/should_compile/T14434.hs - testsuite/tests/typecheck/should_compile/T14590.stderr - + testsuite/tests/typecheck/should_compile/T25996.hs - + testsuite/tests/typecheck/should_compile/T26376.hs - testsuite/tests/typecheck/should_compile/all.T - testsuite/tests/typecheck/should_compile/valid_hole_fits.stderr - testsuite/tests/typecheck/should_fail/DoExpansion1.stderr - testsuite/tests/typecheck/should_fail/DoExpansion2.stderr - testsuite/tests/typecheck/should_fail/T10971d.stderr - testsuite/tests/typecheck/should_fail/T13311.stderr - testsuite/tests/typecheck/should_fail/T15801.stderr - testsuite/tests/typecheck/should_fail/T19627.stderr - testsuite/tests/typecheck/should_fail/T20666.stderr - testsuite/tests/typecheck/should_fail/T20666a.stderr - testsuite/tests/typecheck/should_fail/T20666b.stderr - testsuite/tests/typecheck/should_fail/T22912.stderr - testsuite/tests/typecheck/should_fail/T23427.stderr - testsuite/tests/typecheck/should_fail/T24064.stderr - + testsuite/tests/typecheck/should_fail/T25970.hs - + testsuite/tests/typecheck/should_fail/T25996.hs - testsuite/tests/typecheck/should_fail/T3323.stderr - testsuite/tests/typecheck/should_fail/T3613.stderr - testsuite/tests/typecheck/should_fail/T7851.stderr - testsuite/tests/typecheck/should_fail/T8603.stderr - testsuite/tests/typecheck/should_fail/T9612.stderr - testsuite/tests/typecheck/should_fail/tcfail102.stderr - testsuite/tests/typecheck/should_fail/tcfail128.stderr - testsuite/tests/typecheck/should_fail/tcfail168.stderr - + testsuite/tests/unboxedsums/UbxSumUnpackedSize.hs - + testsuite/tests/unboxedsums/UbxSumUnpackedSize.stdout - + testsuite/tests/unboxedsums/UbxSumUnpackedSize.stdout-ws-32 - testsuite/tests/unboxedsums/all.T - testsuite/tests/unboxedsums/unboxedsums_unit_tests.hs - testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr - utils/ghc-pkg/Main.hs - utils/ghc-pkg/ghc-pkg.cabal.in - utils/ghc-toolchain/exe/Main.hs - utils/ghc-toolchain/ghc-toolchain.cabal - + utils/ghc-toolchain/src/GHC/Toolchain/Library.hs - utils/ghc-toolchain/src/GHC/Toolchain/PlatformDetails.hs - utils/ghc-toolchain/src/GHC/Toolchain/Target.hs - utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cpp.hs - utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cxx.hs - utils/jsffi/dyld.mjs The diff was not included because it is too large. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/e35bc198b6b4fe7f5a18075b56be9f… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/e35bc198b6b4fe7f5a18075b56be9f… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/ani/kill-popErrCtxt] some initial experiment to make ErrCtxt more expressive
by Apoorv Ingle (＠ani) 15 Sep '25

15 Sep '25

Apoorv Ingle pushed to branch wip/ani/kill-popErrCtxt at Glasgow Haskell Compiler / GHC Commits: e95889e1 by Apoorv Ingle at 2025-09-14T22:26:20-05:00 some initial experiment to make ErrCtxt more expressive - - - - - 5 changed files: - compiler/GHC/Tc/Gen/Do.hs - compiler/GHC/Tc/Gen/Head.hs - compiler/GHC/Tc/Types/ErrCtxt.hs - compiler/GHC/Tc/Types/LclEnv.hs - compiler/GHC/Tc/Utils/Monad.hs Changes: ===================================== compiler/GHC/Tc/Gen/Do.hs ===================================== @@ -485,11 +485,11 @@ It stores the original statement (with location) and the expanded expression -- | Wrap a located expression with a `PopErrCtxt` -mkPopErrCtxtExpr :: HsExpr GhcRn -> HsExpr GhcRn -mkPopErrCtxtExpr a = XExpr (PopErrCtxt a) +-- mkPopErrCtxtExpr :: HsExpr GhcRn -> HsExpr GhcRn +-- mkPopErrCtxtExpr a = XExpr (PopErrCtxt a) genPopErrCtxtExpr :: LHsExpr GhcRn -> LHsExpr GhcRn -genPopErrCtxtExpr (L loc a) = L loc (mkPopErrCtxtExpr a) +genPopErrCtxtExpr x = x mkExpandedPatRn :: Pat GhcRn -> HsExpr GhcRn -> HsExpr GhcRn mkExpandedPatRn pat e = XExpr (ExpandedThingRn (OrigPat pat) e) ===================================== compiler/GHC/Tc/Gen/Head.hs ===================================== @@ -1109,5 +1109,5 @@ addExprCtxt e thing_inside -- f x = _ -- when we don't want to say "In the expression: _", -- because it is mentioned in the error message itself - XExpr (PopErrCtxt _) -> thing_inside -- popErrCtxt shouldn't push ctxt. see typechecking let stmts + XExpr (ExpandedThingRn o _) -> setInGeneratedCode o thing_inside _ -> addErrCtxt (ExprCtxt e) thing_inside -- no op in generated code ===================================== compiler/GHC/Tc/Types/ErrCtxt.hs ===================================== @@ -4,7 +4,7 @@ {-# LANGUAGE UndecidableInstances #-} module GHC.Tc.Types.ErrCtxt - ( ErrCtxt, ErrCtxtMsg(..) + ( ErrCtxt (..), ErrCtxtMsg(..), srcCodeOriginErrCtxMsg , UserSigType(..), FunAppCtxtFunArg(..) , TyConInstFlavour(..) ) @@ -23,7 +23,7 @@ import GHC.Tc.Zonk.Monad ( ZonkM ) import GHC.Types.Basic ( TyConFlavour ) import GHC.Types.Name ( Name ) -import GHC.Types.SrcLoc ( SrcSpan ) +import GHC.Types.SrcLoc ( SrcSpan, unLoc ) import GHC.Types.Var ( Id, TyCoVar ) import GHC.Types.Var.Env ( TidyEnv ) @@ -50,13 +50,18 @@ import qualified Data.List.NonEmpty as NE -- | Additional context to include in an error message, e.g. -- "In the type signature ...", "In the ambiguity check for ...", etc. -type ErrCtxt = (Bool, TidyEnv -> ZonkM (TidyEnv, ErrCtxtMsg)) +data ErrCtxt = UserCodeCtxt (Bool, TidyEnv -> ZonkM (TidyEnv, ErrCtxtMsg)) -- Monadic so that we have a chance -- to deal with bound type variables just before error -- message construction -- Bool: True <=> this is a landmark context; do not -- discard it when trimming for display + | GeneratedCodeCtxt SrcCodeOrigin + -- The payload is a SrcCodeOrigin because it is used to generate + -- 1. The CtOrigin for CtLoc, and + -- 2. ErrCtxtMsg in error messages + -------------------------------------------------------------------------------- -- Error message contexts @@ -221,3 +226,9 @@ data ErrCtxtMsg | MergeSignaturesCtxt !UnitState !ModuleName ![InstantiatedModule] -- | While checking that a module implements a Backpack signature. | CheckImplementsCtxt !UnitState !Module !InstantiatedModule + + +srcCodeOriginErrCtxMsg :: SrcCodeOrigin -> ErrCtxtMsg +srcCodeOriginErrCtxMsg (OrigExpr e) = ExprCtxt e +srcCodeOriginErrCtxMsg (OrigStmt s f) = StmtErrCtxt (HsDoStmt f) (unLoc s) +srcCodeOriginErrCtxMsg (OrigPat p) = PatCtxt p ===================================== compiler/GHC/Tc/Types/LclEnv.hs ===================================== @@ -28,7 +28,7 @@ module GHC.Tc.Types.LclEnv ( , addLclEnvErrCtxt - , ErrCtxtStack (..) + , ErrCtxtStack , ArrowCtxt(..) , ThBindEnv , TcTypeEnv @@ -109,36 +109,24 @@ This data structure keeps track of two things: -- See Note [Error Context Stack] -data ErrCtxtStack - = UserCodeCtxt { lcl_err_ctxt :: [ErrCtxt] } -- ^ Trail of error messages - | GeneratedCodeCtxt { src_code_origin :: SrcCodeOrigin -- ^ Original, user written code - , lcl_err_ctxt :: [ErrCtxt] } -- ^ Trail of error messages +type ErrCtxtStack = [ErrCtxt] -- | Are we in a generated context? isGeneratedCodeCtxt :: ErrCtxtStack -> Bool -isGeneratedCodeCtxt UserCodeCtxt{} = False -isGeneratedCodeCtxt _ = True +isGeneratedCodeCtxt (GeneratedCodeCtxt{} : _) = True +isGeneratedCodeCtxt _ = False -- | Get the original source code get_src_code_origin :: ErrCtxtStack -> Maybe SrcCodeOrigin -get_src_code_origin (UserCodeCtxt{}) = Nothing - -- we are in user code, so blame the expression in hand -get_src_code_origin es = Just $ src_code_origin es +get_src_code_origin (GeneratedCodeCtxt es : _) = Just es -- we are in generated code, so extract the original expression - --- | Modify the error context stack --- N.B. If we are in a generated context, any updates to the context stack are ignored. --- We want to blame the errors that appear in a generated expression --- to the original, user written code -modify_err_ctxt_stack :: ([ErrCtxt] -> [ErrCtxt]) -> ErrCtxtStack -> ErrCtxtStack -modify_err_ctxt_stack f (UserCodeCtxt e) = UserCodeCtxt (f e) -modify_err_ctxt_stack _ c = c -- any updates on the err context in a generated context should be ignored - +get_src_code_origin _ = Nothing + -- we are in user code, so blame the expression in hand data TcLclCtxt = TcLclCtxt { tcl_loc :: RealSrcSpan, -- Source span - tcl_ctxt :: ErrCtxtStack, -- See Note [Error Context Stack] + tcl_err_ctxt :: ErrCtxtStack, -- See Note [Error Context Stack] tcl_tclvl :: TcLevel, tcl_bndrs :: TcBinderStack, -- Used for reporting relevant bindings, -- and for tidying type @@ -203,25 +191,30 @@ getLclEnvLoc :: TcLclEnv -> RealSrcSpan getLclEnvLoc = tcl_loc . tcl_lcl_ctxt getLclEnvErrCtxt :: TcLclEnv -> [ErrCtxt] -getLclEnvErrCtxt = lcl_err_ctxt . tcl_ctxt . tcl_lcl_ctxt +getLclEnvErrCtxt = tcl_err_ctxt . tcl_lcl_ctxt setLclEnvErrCtxt :: [ErrCtxt] -> TcLclEnv -> TcLclEnv -setLclEnvErrCtxt ctxt = modifyLclCtxt (\env -> env { tcl_ctxt = modify_err_ctxt_stack (\ _ -> ctxt) (tcl_ctxt env) }) +setLclEnvErrCtxt ctxt = modifyLclCtxt (\env -> env { tcl_err_ctxt = ctxt }) addLclEnvErrCtxt :: ErrCtxt -> TcLclEnv -> TcLclEnv -addLclEnvErrCtxt ec = modifyLclCtxt (\env -> env { tcl_ctxt = modify_err_ctxt_stack (\ctxt -> ec : ctxt) (tcl_ctxt env) }) +addLclEnvErrCtxt (GeneratedCodeCtxt co) = setLclEnvSrcCodeOrigin co +addLclEnvErrCtxt ec = modifyLclCtxt (\env -> env { tcl_err_ctxt = ec : (tcl_err_ctxt env) }) getLclEnvSrcCodeOrigin :: TcLclEnv -> Maybe SrcCodeOrigin -getLclEnvSrcCodeOrigin = get_src_code_origin . tcl_ctxt . tcl_lcl_ctxt +getLclEnvSrcCodeOrigin = get_src_code_origin . tcl_err_ctxt . tcl_lcl_ctxt setLclEnvSrcCodeOrigin :: SrcCodeOrigin -> TcLclEnv -> TcLclEnv setLclEnvSrcCodeOrigin o = modifyLclCtxt (setLclCtxtSrcCodeOrigin o) setLclCtxtSrcCodeOrigin :: SrcCodeOrigin -> TcLclCtxt -> TcLclCtxt -setLclCtxtSrcCodeOrigin o ctxt = ctxt { tcl_ctxt = GeneratedCodeCtxt o (lcl_err_ctxt $ tcl_ctxt ctxt) } +setLclCtxtSrcCodeOrigin o lclCtxt + | (GeneratedCodeCtxt _ : ec) <- tcl_err_ctxt lclCtxt + = lclCtxt { tcl_err_ctxt = GeneratedCodeCtxt o : ec } + | otherwise + = lclCtxt { tcl_err_ctxt = GeneratedCodeCtxt o : tcl_err_ctxt lclCtxt } lclCtxtInGeneratedCode :: TcLclCtxt -> Bool -lclCtxtInGeneratedCode = isGeneratedCodeCtxt . tcl_ctxt +lclCtxtInGeneratedCode = isGeneratedCodeCtxt . tcl_err_ctxt lclEnvInGeneratedCode :: TcLclEnv -> Bool lclEnvInGeneratedCode = lclCtxtInGeneratedCode . tcl_lcl_ctxt ===================================== compiler/GHC/Tc/Utils/Monad.hs ===================================== @@ -168,6 +168,7 @@ import GHC.Tc.Types -- Re-export all import GHC.Tc.Types.Constraint import GHC.Tc.Types.CtLoc import GHC.Tc.Types.Evidence +import GHC.Tc.Types.ErrCtxt import GHC.Tc.Types.LclEnv import GHC.Tc.Types.Origin import GHC.Tc.Types.TcRef @@ -401,7 +402,7 @@ initTcWithGbl hsc_env gbl_env loc do_this tcl_lcl_ctxt = TcLclCtxt { tcl_loc = loc, -- tcl_loc should be over-ridden very soon! - tcl_ctxt = UserCodeCtxt [], + tcl_err_ctxt = [], tcl_rdr = emptyLocalRdrEnv, tcl_th_ctxt = topLevel, tcl_th_bndrs = emptyNameEnv, @@ -983,9 +984,7 @@ inGeneratedCode = lclEnvInGeneratedCode <$> getLclEnv setSrcSpan :: SrcSpan -> TcRn a -> TcRn a -- See Note [Error contexts in generated code] setSrcSpan (RealSrcSpan loc _) thing_inside - = updLclCtxt (\env -> env { tcl_loc = loc - , tcl_ctxt = UserCodeCtxt (lcl_err_ctxt $ tcl_ctxt env)}) - thing_inside + = updLclCtxt (\env -> env { tcl_loc = loc }) thing_inside setSrcSpan (UnhelpfulSpan _) thing_inside = thing_inside @@ -1252,7 +1251,7 @@ addErrCtxt msg = addErrCtxtM (\env -> return (env, msg)) -- See Note [Rebindable syntax and XXExprGhcRn] in GHC.Hs.Expr addErrCtxtM :: (TidyEnv -> ZonkM (TidyEnv, ErrCtxtMsg)) -> TcM a -> TcM a {-# INLINE addErrCtxtM #-} -- Note [Inlining addErrCtxt] -addErrCtxtM ctxt = pushCtxt (False, ctxt) +addErrCtxtM ctxt = pushCtxt (UserCodeCtxt (False, ctxt)) -- | Add a fixed landmark message to the error context. A landmark -- message is always sure to be reported, even if there is a lot of @@ -1266,7 +1265,7 @@ addLandmarkErrCtxt msg = addLandmarkErrCtxtM (\env -> return (env, msg)) -- and tidying. addLandmarkErrCtxtM :: (TidyEnv -> ZonkM (TidyEnv, ErrCtxtMsg)) -> TcM a -> TcM a {-# INLINE addLandmarkErrCtxtM #-} -- Note [Inlining addErrCtxt] -addLandmarkErrCtxtM ctxt = pushCtxt (True, ctxt) +addLandmarkErrCtxtM ctxt = pushCtxt (UserCodeCtxt (True, ctxt)) -- | NB. no op in generated code -- See Note [Rebindable syntax and XXExprGhcRn] in GHC.Hs.Expr @@ -1277,9 +1276,7 @@ pushCtxt ctxt = updLclEnv (updCtxt ctxt) updCtxt :: ErrCtxt -> TcLclEnv -> TcLclEnv -- Do not update the context if we are in generated code -- See Note [Rebindable syntax and XXExprGhcRn] in GHC.Hs.Expr -updCtxt ctxt env - | lclEnvInGeneratedCode env = env - | otherwise = addLclEnvErrCtxt ctxt env +updCtxt ctxt env = addLclEnvErrCtxt ctxt env popErrCtxt :: TcM a -> TcM a popErrCtxt thing_inside = updLclEnv (\env -> setLclEnvErrCtxt (pop $ getLclEnvErrCtxt env) env) $ @@ -1740,7 +1737,7 @@ mkErrCtxt env ctxts where go :: Bool -> Int -> TidyEnv -> [ErrCtxt] -> TcM [ErrCtxtMsg] go _ _ _ [] = return [] - go dbg n env ((is_landmark, ctxt) : ctxts) + go dbg n env (UserCodeCtxt (is_landmark, ctxt) : ctxts) | is_landmark || n < mAX_CONTEXTS -- Too verbose || dbg = do { (env', msg) <- liftZonkM $ ctxt env ; let n' = if is_landmark then n else n+1 @@ -1748,6 +1745,13 @@ mkErrCtxt env ctxts ; return (msg : rest) } | otherwise = go dbg n env ctxts + go dbg n env (GeneratedCodeCtxt co : ctxts) + | n < mAX_CONTEXTS -- Too verbose || dbg + = do { let msg = srcCodeOriginErrCtxMsg co + ; rest <- go dbg (n+1) env ctxts + ; return (msg : rest) } + | otherwise + = go dbg n env ctxts mAX_CONTEXTS :: Int -- No more than this number of non-landmark contexts View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e95889e1d3d604fb26b23d44e1d8173… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e95889e1d3d604fb26b23d44e1d8173… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][master] 2 commits: Revert "wasm: add brotli compression for ghci browser mode"
by Marge Bot (＠marge-bot) 15 Sep '25

15 Sep '25

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC Commits: 42a18960 by Cheng Shao at 2025-09-14T21:30:26-04:00 Revert "wasm: add brotli compression for ghci browser mode" This reverts commit 731217ce68a1093b5f9e26a07d5bd2cdade2b352. Benchmarks show non-negligible overhead when browser runs on the same host, which is the majority of actual use cases. - - - - - e6755b9f by Cheng Shao at 2025-09-14T21:30:26-04:00 wasm: remove etag logic in ghci browser mode web server This commit removes the etag logic in dyld script's ghci browser mode web server. It was meant to support caching logic of wasm shared libraries, but even if the port is manually specified to make caching even relevant, for localhost the extra overhead around etag logic is simply not worth it according to benchmarks. - - - - - 1 changed file: - utils/jsffi/dyld.mjs Changes: ===================================== utils/jsffi/dyld.mjs ===================================== @@ -291,7 +291,7 @@ const isNode = Boolean(globalThis?.process?.versions?.node); // factor out browser-only/node-only logic into different modules. For // now, just make these global let bindings optionally initialized if // isNode and be careful to not use them in browser-only logic. -let fs, http, path, require, stream, util, wasi, ws, zlib; +let fs, http, path, require, stream, wasi, ws; if (isNode) { require = (await import("node:module")).createRequire(import.meta.url); @@ -300,9 +300,7 @@ if (isNode) { http = require("http"); path = require("path"); stream = require("stream"); - util = require("util"); wasi = require("wasi"); - zlib = require("zlib"); // Optional npm dependencies loaded via NODE_PATH try { @@ -561,30 +559,8 @@ args.rpc.opened.then(() => main(args)); }[path.extname(p)] || "application/octet-stream" ); - const buf = Buffer.from(await fs.promises.readFile(p)); - const etag = `sha512-${Buffer.from( - await crypto.subtle.digest("SHA-512", buf) - ).toString("base64")}`; - - res.setHeader("ETag", etag); - - if (req.headers["if-none-match"] === etag) { - res.writeHead(304); - res.end(); - return; - } - - res.setHeader("Content-Encoding", "br"); - res.writeHead(200); - res.end( - await util.promisify(zlib.brotliCompress)(buf, { - params: { - [zlib.constants.BROTLI_PARAM_QUALITY]: - zlib.constants.BROTLI_MIN_QUALITY, - }, - }) - ); + fs.createReadStream(p).pipe(res); return; } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/77deaa7ad9c880410b7d0a967b0373… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/77deaa7ad9c880410b7d0a967b0373… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][master] hadrian: build in-tree gmp with -fvisibility=hidden
by Marge Bot (＠marge-bot) 15 Sep '25

15 Sep '25

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC Commits: 77deaa7a by Cheng Shao at 2025-09-14T21:29:45-04:00 hadrian: build in-tree gmp with -fvisibility=hidden When hadrian builds in-tree gmp, it should build the shared objects with -fvisibility=hidden. The gmp symbols are only used by bignum logic in ghc-internal and shouldn't be exported by the ghc-internal shared library. We should always strive to keep shared library symbol table lean, which benefits platforms with slow dynamic linker or even hard limits about how many symbols can be exported (e.g. macos dyld, win32 dll and wasm dyld). - - - - - 1 changed file: - hadrian/src/Rules/Gmp.hs Changes: ===================================== hadrian/src/Rules/Gmp.hs ===================================== @@ -12,7 +12,6 @@ import Utilities import Hadrian.BuildPath import Hadrian.Expression import Settings.Builders.Common (cArgs, getStagedCCFlags) -import GHC.Platform.ArchOS -- | Build in-tree GMP library objects (if GmpInTree flag is set) and return -- their paths. @@ -128,7 +127,10 @@ gmpRules = do mconcat [ cArgs , getStagedCCFlags - , anyTargetArch [ArchWasm32] ? arg "-fvisibility=default" + -- gmp symbols are only used by bignum logic in + -- ghc-internal and shouldn't be exported by the + -- ghc-internal shared library. + , arg "-fvisibility=hidden" ] env <- sequence [ builderEnvironment "CC" $ Cc CompileC (stage ctx) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/77deaa7ad9c880410b7d0a967b03739… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/77deaa7ad9c880410b7d0a967b03739… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/shorter-this-module-links] Use showUnique in internalAnchorIdent
by Oleg Grenrus (＠phadej) 14 Sep '25

14 Sep '25

Oleg Grenrus pushed to branch wip/shorter-this-module-links at Glasgow Haskell Compiler / GHC Commits: 9861b13e by Oleg Grenrus at 2025-09-14T23:50:20+03:00 Use showUnique in internalAnchorIdent Showing the key of Unique as a number is generally not a great idea. GHC Unique has a tag in high bits, so the raw number is unnecessarily big. So now we have ```html <a href="#l-rvgK">bar</a> ``` instead of ```html <a href="#local-6989586621679015689">bar</a> ``` Together with previous changes of shorter intra-module links the effect on compressed files is not huge, that is expected as we simply remove repetitive contents which pack well. ``` 12_694_206 Agda-2.9.0-docs-orig.tar.gz 12_566_065 Agda-2.9.0-docs.tar.gz ``` However when unpacked, the difference can be significant, e.g. Agda's largest module source got 5% reduction: ``` 14_230_117 Agda.Syntax.Parser.Parser.html 13_422_109 Agda.Syntax.Parser.Parser.html ``` The whole hyperlinked source code directory got similar reduction ``` 121M Agda-2.9.0-docs-orig/src 114M Agda-2.9.0-docs/src ``` For the reference, sources are about 2/3 of the generated haddocks ``` 178M Agda-2.9.0-docs-old 172M Agda-2.9.0-docs ``` so we get around 3.5% size reduction overall. Not bad for a small local changes. - - - - - 17 changed files: - utils/haddock/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs - utils/haddock/hypsrc-test/Main.hs - utils/haddock/hypsrc-test/ref/src/CPP.html - utils/haddock/hypsrc-test/ref/src/Classes.html - utils/haddock/hypsrc-test/ref/src/Constructors.html - utils/haddock/hypsrc-test/ref/src/Identifiers.html - utils/haddock/hypsrc-test/ref/src/LinkingIdentifiers.html - utils/haddock/hypsrc-test/ref/src/Literals.html - utils/haddock/hypsrc-test/ref/src/Operators.html - utils/haddock/hypsrc-test/ref/src/Polymorphism.html - utils/haddock/hypsrc-test/ref/src/PositionPragmas.html - utils/haddock/hypsrc-test/ref/src/Quasiquoter.html - utils/haddock/hypsrc-test/ref/src/Records.html - utils/haddock/hypsrc-test/ref/src/TemplateHaskellQuasiquotes.html - utils/haddock/hypsrc-test/ref/src/TemplateHaskellSplices.html - utils/haddock/hypsrc-test/ref/src/Types.html - utils/haddock/hypsrc-test/ref/src/UsingQuasiquotes.html Changes: ===================================== utils/haddock/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs ===================================== @@ -14,7 +14,7 @@ import GHC.Iface.Ext.Types import GHC.Iface.Ext.Utils (emptyNodeInfo, isEvidenceContext) import GHC.Types.Name (Name, getOccString, isInternalName, nameModule, nameUnique) import GHC.Types.SrcLoc -import GHC.Types.Unique (getKey) +import GHC.Types.Unique (showUnique) import GHC.Unit.Module (Module, ModuleName, moduleNameString) import GHC.Utils.Encoding (utf8DecodeByteString) import System.FilePath.Posix ((</>)) @@ -254,7 +254,7 @@ externalAnchorIdent :: Name -> String externalAnchorIdent = hypSrcNameUrl internalAnchorIdent :: Name -> String -internalAnchorIdent = ("local-" ++) . show . getKey . nameUnique +internalAnchorIdent = ("l-" ++) . showUnique . nameUnique -- | Generate the HTML hyperlink for an identifier hyperlink :: Module -> SrcMaps -> Identifier -> Html -> Html ===================================== utils/haddock/hypsrc-test/Main.hs ===================================== @@ -22,9 +22,9 @@ checkConfig = CheckConfig where strip _ = fixPaths . stripAnchors' . stripLinks' . stripIds' . stripFooter - stripLinks' = stripLinksWhen $ \href -> "#local-" `isPrefixOf` href - stripAnchors' = stripAnchorsWhen $ \name -> "local-" `isPrefixOf` name - stripIds' = stripIdsWhen $ \name -> "local-" `isPrefixOf` name + stripLinks' = stripLinksWhen $ \href -> "#l-" `isPrefixOf` href + stripAnchors' = stripAnchorsWhen $ \name -> "l-" `isPrefixOf` name + stripIds' = stripIdsWhen $ \name -> "l-" `isPrefixOf` name -- One-shot hyperlinked source links to other modules as if they are in another package fixPaths = fixAttrValueWhen "href" (drop 7) ("../src/" `isPrefixOf`) ===================================== utils/haddock/hypsrc-test/ref/src/CPP.html ===================================== @@ -45,7 +45,7 @@ ><a href="CPP.html#foo" + ><a href="#foo" >foo</a @@ -70,7 +70,7 @@ >foo :: String <a href="CPP.html#foo" + ><a href="#foo" >foo</a @@ -106,7 +106,7 @@ ><a href="CPP.html#bar" + ><a href="#bar" >bar</a @@ -131,7 +131,7 @@ >bar :: String <a href="CPP.html#bar" + ><a href="#bar" >bar</a @@ -192,7 +192,7 @@ ><a href="CPP.html#baz" + ><a href="#baz" >baz</a @@ -217,7 +217,7 @@ >baz :: String <a href="CPP.html#baz" + ><a href="#baz" >baz</a ===================================== utils/haddock/hypsrc-test/ref/src/Classes.html ===================================== @@ -48,7 +48,7 @@ > <a href="Classes.html#Foo" + ><a href="#Foo" >Foo</a @@ -77,7 +77,7 @@ > <a href="Classes.html#bar" + ><a href="#bar" >bar</a @@ -114,7 +114,7 @@ > <a href="Classes.html#baz" + ><a href="#baz" >baz</a @@ -171,7 +171,7 @@ > <a href="Classes.html#Foo" + ><a href="#Foo" >Foo</a @@ -198,7 +198,7 @@ >bar :: Int -> Int <a href="Classes.html#bar" + ><a href="#bar" >bar</a @@ -230,7 +230,7 @@ forall a. a -> a >baz :: Int -> (Int, Int) <a href="Classes.html#baz" + ><a href="#baz" >baz</a @@ -297,7 +297,7 @@ forall a. a -> a > <a href="Classes.html#Foo" + ><a href="#Foo" >Foo</a @@ -331,7 +331,7 @@ forall a. a -> a >bar :: [a] -> Int <a href="Classes.html#bar" + ><a href="#bar" >bar</a @@ -364,7 +364,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int >baz :: Int -> ([a], [a]) <a href="Classes.html#baz" + ><a href="#baz" >baz</a @@ -421,7 +421,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int > <a href="Classes.html#Foo" + ><a href="#Foo" >Foo</a @@ -442,7 +442,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int > <a href="Classes.html#Foo%27" + ><a href="#Foo%27" >Foo'</a @@ -471,7 +471,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int > <a href="Classes.html#quux" + ><a href="#quux" >quux</a @@ -524,7 +524,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int > <a href="Classes.html#quux" + ><a href="#quux" >quux</a @@ -572,7 +572,7 @@ forall (t :: * -> *) a. Foldable t => t a -> Int >[a] -> a forall a. Foo' a => [a] -> a <a href="Classes.html#norf" + ><a href="#norf" >norf</a @@ -620,7 +620,7 @@ forall a. Foo' a => [a] -> a > <a href="Classes.html#norf" + ><a href="#norf" >norf</a @@ -663,7 +663,7 @@ forall a. Foo' a => [a] -> a > <a href="Classes.html#norf" + ><a href="#norf" >norf</a @@ -679,7 +679,7 @@ forall a. Foo' a => [a] -> a >(a, a) -> a forall a. Foo' a => (a, a) -> a <a href="Classes.html#quux" + ><a href="#quux" >quux</a @@ -701,7 +701,7 @@ forall b c a. (b -> c) -> (a -> b) -> a -> c >Int -> (a, a) forall a. Foo a => Int -> (a, a) <a href="Classes.html#baz" + ><a href="#baz" >baz</a @@ -754,7 +754,7 @@ forall a b. (a -> b) -> [a] -> [b] >a -> Int forall a. Foo a => a -> Int <a href="Classes.html#bar" + ><a href="#bar" >bar</a @@ -776,7 +776,7 @@ forall a. Foo a => a -> Int > <a href="Classes.html#Foo%27" + ><a href="#Foo%27" >Foo'</a @@ -804,7 +804,7 @@ forall a. Foo a => a -> Int >norf :: [Int] -> Int <a href="Classes.html#norf" + ><a href="#norf" >norf</a @@ -842,7 +842,7 @@ forall (t :: * -> *) a. (Foldable t, Num a) => t a -> a ><a href="Classes.html#Foo%27" + ><a href="#Foo%27" >Foo'</a @@ -877,7 +877,7 @@ forall (t :: * -> *) a. (Foldable t, Num a) => t a -> a >quux :: ([a], [a]) -> [a] <a href="Classes.html#quux" + ><a href="#quux" >quux</a @@ -928,7 +928,7 @@ forall a. [a] -> [a] -> [a] > <a href="Classes.html#Plugh" + ><a href="#Plugh" >Plugh</a @@ -957,7 +957,7 @@ forall a. [a] -> [a] -> [a] > <a href="Classes.html#plugh" + ><a href="#plugh" >plugh</a @@ -1098,7 +1098,7 @@ forall a. [a] -> [a] -> [a] > <a href="Classes.html#Plugh" + ><a href="#Plugh" >Plugh</a @@ -1125,7 +1125,7 @@ forall a. [a] -> [a] -> [a] >plugh :: forall a b. Either a a -> Either b b -> Either (a -> b) (b -> a) <a href="Classes.html#plugh" + ><a href="#plugh" >plugh</a @@ -1217,7 +1217,7 @@ forall a b. a -> b -> a > <a href="Classes.html#plugh" + ><a href="#plugh" >plugh</a @@ -1308,7 +1308,7 @@ forall a b. a -> b -> a > <a href="Classes.html#plugh" + ><a href="#plugh" >plugh</a @@ -1399,7 +1399,7 @@ forall a b. a -> b -> a > <a href="Classes.html#plugh" + ><a href="#plugh" >plugh</a ===================================== utils/haddock/hypsrc-test/ref/src/Constructors.html ===================================== @@ -48,7 +48,7 @@ > <a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -67,7 +67,7 @@ > <a href="Constructors.html#Bar" + ><a href="#Bar" >Bar</a @@ -86,7 +86,7 @@ > <a href="Constructors.html#Baz" + ><a href="#Baz" >Baz</a @@ -105,7 +105,7 @@ > <a href="Constructors.html#Quux" + ><a href="#Quux" >Quux</a @@ -114,7 +114,7 @@ > <a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -141,7 +141,7 @@ > <a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -155,7 +155,7 @@ > <a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -166,7 +166,7 @@ >(<a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -178,7 +178,7 @@ >[<a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -190,7 +190,7 @@ > <a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -213,7 +213,7 @@ ><a href="Constructors.html#bar" + ><a href="#bar" >bar</a @@ -223,7 +223,7 @@ > <a href="Constructors.html#baz" + ><a href="#baz" >baz</a @@ -233,7 +233,7 @@ > <a href="Constructors.html#quux" + ><a href="#quux" >quux</a @@ -245,7 +245,7 @@ > <a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -260,7 +260,7 @@ >bar :: Foo <a href="Constructors.html#bar" + ><a href="#bar" >bar</a @@ -276,7 +276,7 @@ >Foo <a href="Constructors.html#Bar" + ><a href="#Bar" >Bar</a @@ -291,7 +291,7 @@ >baz :: Foo <a href="Constructors.html#baz" + ><a href="#baz" >baz</a @@ -307,7 +307,7 @@ >Foo <a href="Constructors.html#Baz" + ><a href="#Baz" >Baz</a @@ -322,7 +322,7 @@ >quux :: Foo <a href="Constructors.html#quux" + ><a href="#quux" >quux</a @@ -338,7 +338,7 @@ >Foo -> Int -> Foo <a href="Constructors.html#Quux" + ><a href="#Quux" >Quux</a @@ -349,7 +349,7 @@ >Foo <a href="Constructors.html#quux" + ><a href="#quux" >quux</a @@ -379,7 +379,7 @@ ><a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -391,7 +391,7 @@ > <a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -416,7 +416,7 @@ >unfoo :: Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -428,7 +428,7 @@ >Foo <a href="Constructors.html#Bar" + ><a href="#Bar" >Bar</a @@ -452,7 +452,7 @@ ><a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -463,7 +463,7 @@ >Foo <a href="Constructors.html#Baz" + ><a href="#Baz" >Baz</a @@ -487,7 +487,7 @@ ><a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -497,7 +497,7 @@ >(<a href="Constructors.html#Quux" + ><a href="#Quux" >Quux</a @@ -580,7 +580,7 @@ forall a. Num a => a -> a -> a >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -612,7 +612,7 @@ forall a. Num a => a -> a -> a ><a href="Constructors.html#unnorf" + ><a href="#unnorf" >unnorf</a @@ -624,7 +624,7 @@ forall a. Num a => a -> a -> a > <a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -638,7 +638,7 @@ forall a. Num a => a -> a -> a >[<a href="Constructors.html#Foo" + ><a href="#Foo" >Foo</a @@ -655,7 +655,7 @@ forall a. Num a => a -> a -> a >unnorf :: Norf -> [Foo] <a href="Constructors.html#unnorf" + ><a href="#unnorf" >unnorf</a @@ -666,7 +666,7 @@ forall a. Num a => a -> a -> a >(<a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -679,7 +679,7 @@ forall a. Num a => a -> a -> a >Foo <a href="Constructors.html#Bar" + ><a href="#Bar" >Bar</a @@ -707,7 +707,7 @@ forall a. Num a => a -> a -> a >Foo <a href="Constructors.html#Bar" + ><a href="#Bar" >Bar</a @@ -737,7 +737,7 @@ forall a. Num a => a -> a -> a ><a href="Constructors.html#unnorf" + ><a href="#unnorf" >unnorf</a @@ -747,7 +747,7 @@ forall a. Num a => a -> a -> a >(<a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -760,7 +760,7 @@ forall a. Num a => a -> a -> a >Foo <a href="Constructors.html#Baz" + ><a href="#Baz" >Baz</a @@ -788,7 +788,7 @@ forall a. Num a => a -> a -> a >Foo <a href="Constructors.html#Baz" + ><a href="#Baz" >Baz</a @@ -828,7 +828,7 @@ forall a. [a] -> [a] ><a href="Constructors.html#unnorf" + ><a href="#unnorf" >unnorf</a @@ -872,7 +872,7 @@ forall a. HasCallStack => a ><a href="Constructors.html#unnorf%27" + ><a href="#unnorf%27" >unnorf'</a @@ -884,7 +884,7 @@ forall a. HasCallStack => a > <a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -909,7 +909,7 @@ forall a. HasCallStack => a >unnorf' :: Norf -> Int <a href="Constructors.html#unnorf%27" + ><a href="#unnorf%27" >unnorf'</a @@ -933,7 +933,7 @@ forall a. HasCallStack => a >(<a href="Constructors.html#Norf" + ><a href="#Norf" >Norf</a @@ -958,7 +958,7 @@ forall a. HasCallStack => a >(<a href="Constructors.html#Quux" + ><a href="#Quux" >Quux</a @@ -1018,7 +1018,7 @@ forall a. HasCallStack => a >(<a href="Constructors.html#Quux" + ><a href="#Quux" >Quux</a @@ -1108,7 +1108,7 @@ forall a. Num a => a -> a -> a >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -1206,7 +1206,7 @@ forall a. Num a => a -> a -> a >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -1238,7 +1238,7 @@ forall a. Num a => a -> a -> a >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -1270,7 +1270,7 @@ forall a. Num a => a -> a -> a >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -1345,7 +1345,7 @@ forall a b. (a -> b) -> [a] -> [b] >Foo -> Int <a href="Constructors.html#unfoo" + ><a href="#unfoo" >unfoo</a @@ -1366,7 +1366,7 @@ forall b c a. (b -> c) -> (a -> b) -> a -> c >Norf -> [Foo] <a href="Constructors.html#unnorf" + ><a href="#unnorf" >unnorf</a ===================================== utils/haddock/hypsrc-test/ref/src/Identifiers.html ===================================== @@ -43,7 +43,7 @@ ><a href="Identifiers.html#foo" + ><a href="#foo" >foo</a @@ -53,7 +53,7 @@ > <a href="Identifiers.html#bar" + ><a href="#bar" >bar</a @@ -63,7 +63,7 @@ > <a href="Identifiers.html#baz" + ><a href="#baz" >baz</a @@ -108,7 +108,7 @@ >foo :: Int -> Int -> Int <a href="Identifiers.html#foo" + ><a href="#foo" >foo</a @@ -192,7 +192,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="Identifiers.html#bar" + ><a href="#bar" >bar</a @@ -271,7 +271,7 @@ forall a. Num a => a -> a -> a >bar :: Int -> Int -> Int <a href="Identifiers.html#bar" + ><a href="#bar" >bar</a @@ -355,7 +355,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="Identifiers.html#baz" + ><a href="#baz" >baz</a @@ -434,7 +434,7 @@ forall a. Num a => a -> a -> a >baz :: Int -> Int -> Int <a href="Identifiers.html#baz" + ><a href="#baz" >baz</a @@ -576,7 +576,7 @@ forall a. Num a => a -> a -> a ><a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -611,7 +611,7 @@ forall a. Num a => a -> a -> a >quux :: Int -> Int <a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -640,7 +640,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="Identifiers.html#foo" + ><a href="#foo" >foo</a @@ -653,7 +653,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="Identifiers.html#bar" + ><a href="#bar" >bar</a @@ -690,7 +690,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="Identifiers.html#bar" + ><a href="#bar" >bar</a @@ -730,7 +730,7 @@ forall a. Num a => a -> a -> a ><a href="Identifiers.html#norf" + ><a href="#norf" >norf</a @@ -785,7 +785,7 @@ forall a. Num a => a -> a -> a >norf :: Int -> Int -> Int -> Int <a href="Identifiers.html#norf" + ><a href="#norf" >norf</a @@ -879,7 +879,7 @@ forall a. Ord a => a -> a -> Bool >Int -> Int <a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -944,7 +944,7 @@ forall a. Ord a => a -> a -> Bool >Int -> Int <a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -1009,7 +1009,7 @@ forall a. Ord a => a -> a -> Bool >Int -> Int <a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -1053,7 +1053,7 @@ forall a. Ord a => a -> a -> Bool >Int -> Int -> Int -> Int <a href="Identifiers.html#norf" + ><a href="#norf" >norf</a @@ -1125,7 +1125,7 @@ forall a. Ord a => a -> a -> Bool ><a href="Identifiers.html#main" + ><a href="#main" >main</a @@ -1156,7 +1156,7 @@ forall a. Ord a => a -> a -> Bool >main :: IO () <a href="Identifiers.html#main" + ><a href="#main" >main</a @@ -1220,7 +1220,7 @@ forall a b. (a -> b) -> a -> b >Int -> Int -> Int <a href="Identifiers.html#foo" + ><a href="#foo" >foo</a @@ -1297,7 +1297,7 @@ forall a b. (a -> b) -> a -> b >Int -> Int <a href="Identifiers.html#quux" + ><a href="#quux" >quux</a @@ -1363,7 +1363,7 @@ forall a b. (a -> b) -> a -> b >Int -> Int -> Int -> Int <a href="Identifiers.html#norf" + ><a href="#norf" >Identifiers.norf</a ===================================== utils/haddock/hypsrc-test/ref/src/LinkingIdentifiers.html ===================================== @@ -73,7 +73,7 @@ ><a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >ident</a @@ -131,7 +131,7 @@ >ident :: Int -> Int -> Int <a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >`ident`</a @@ -169,7 +169,7 @@ >Int -> Int -> Int <a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >`ident`</a @@ -214,7 +214,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >`LinkingIdentifiers.ident`</a @@ -236,7 +236,7 @@ forall a. Num a => a -> a -> a ><a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >ident</a @@ -273,7 +273,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >ident</a @@ -314,7 +314,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#ident" + ><a href="#ident" >LinkingIdentifiers.ident</a @@ -350,7 +350,7 @@ forall a. Num a => a -> a -> a ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >(++:++)</a @@ -408,7 +408,7 @@ forall a. Num a => a -> a -> a >++:++ :: Int -> Int -> Int <a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >++:++</a @@ -446,7 +446,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >++:++</a @@ -491,7 +491,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >LinkingIdentifiers.++:++</a @@ -513,7 +513,7 @@ forall a. Num a => a -> a -> a ><a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >(++:++)</a @@ -550,7 +550,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >(++:++)</a @@ -591,7 +591,7 @@ forall a. Num a => a -> a -> a >Int -> Int -> Int <a href="LinkingIdentifiers.html#%2B%2B%3A%2B%2B" + ><a href="#%2B%2B%3A%2B%2B" >(LinkingIdentifiers.++:++)</a ===================================== utils/haddock/hypsrc-test/ref/src/Literals.html ===================================== @@ -43,7 +43,7 @@ ><a href="Literals.html#str" + ><a href="#str" >str</a @@ -68,7 +68,7 @@ >str :: String <a href="Literals.html#str" + ><a href="#str" >str</a @@ -99,7 +99,7 @@ ><a href="Literals.html#num" + ><a href="#num" >num</a @@ -145,7 +145,7 @@ >num :: forall a. Num a => a <a href="Literals.html#num" + ><a href="#num" >num</a @@ -252,7 +252,7 @@ forall a. Num a => a -> a -> a ><a href="Literals.html#frac" + ><a href="#frac" >frac</a @@ -298,7 +298,7 @@ forall a. Num a => a -> a -> a >frac :: forall a. Fractional a => a <a href="Literals.html#frac" + ><a href="#frac" >frac</a @@ -329,7 +329,7 @@ forall a. Num a => a -> a -> a ><a href="Literals.html#list" + ><a href="#list" >list</a @@ -373,7 +373,7 @@ forall a. Num a => a -> a -> a >list :: forall a. [[[[a]]]] <a href="Literals.html#list" + ><a href="#list" >list</a @@ -432,7 +432,7 @@ forall a. Num a => a -> a -> a ><a href="Literals.html#pair" + ><a href="#pair" >pair</a @@ -497,7 +497,7 @@ forall a. Num a => a -> a -> a >pair :: ((), ((), (), ()), ()) <a href="Literals.html#pair" + ><a href="#pair" >pair</a ===================================== utils/haddock/hypsrc-test/ref/src/Operators.html ===================================== @@ -39,7 +39,7 @@ ><a href="Operators.html#%2B%2B%2B" + ><a href="#%2B%2B%2B" >(+++)</a @@ -116,7 +116,7 @@ >+++ :: forall a. [a] -> [a] -> [a] <a href="Operators.html#%2B%2B%2B" + ><a href="#%2B%2B%2B" >+++</a @@ -204,7 +204,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%24%24%24" + ><a href="#%24%24%24" >($$$)</a @@ -281,7 +281,7 @@ forall a. [a] -> [a] -> [a] >$$$ :: forall a. [a] -> [a] -> [a] <a href="Operators.html#%24%24%24" + ><a href="#%24%24%24" >$$$</a @@ -322,7 +322,7 @@ forall a. [a] -> [a] -> [a] >[a] -> [a] -> [a] forall a. [a] -> [a] -> [a] <a href="Operators.html#%2B%2B%2B" + ><a href="#%2B%2B%2B" >+++</a @@ -350,7 +350,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%2A%2A%2A" + ><a href="#%2A%2A%2A" >(***)</a @@ -414,7 +414,7 @@ forall a. [a] -> [a] -> [a] >*** :: forall a. [a] -> [a] -> [a] <a href="Operators.html#%2A%2A%2A" + ><a href="#%2A%2A%2A" >(***)</a @@ -460,7 +460,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%2A%2A%2A" + ><a href="#%2A%2A%2A" >(***)</a @@ -528,7 +528,7 @@ forall a. [a] -> [a] -> [a] >[a] -> [a] -> [a] forall a. [a] -> [a] -> [a] <a href="Operators.html#%2B%2B%2B" + ><a href="#%2B%2B%2B" >+++</a @@ -553,7 +553,7 @@ forall a. [a] -> [a] -> [a] >[a] -> [a] -> [a] forall a. [a] -> [a] -> [a] <a href="Operators.html#%2A%2A%2A" + ><a href="#%2A%2A%2A" >***</a @@ -583,7 +583,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%2A%2F%5C%2A" + ><a href="#%2A%2F%5C%2A" >(*/\*)</a @@ -664,7 +664,7 @@ forall a. [a] -> [a] -> [a] >*/\* :: forall a. [[a]] -> [a] -> [a] <a href="Operators.html#%2A%2F%5C%2A" + ><a href="#%2A%2F%5C%2A" >*/\*</a @@ -706,7 +706,7 @@ forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b] >[a] -> [a] -> [a] forall a. [a] -> [a] -> [a] <a href="Operators.html#%2A%2A%2A" + ><a href="#%2A%2A%2A" >***</a @@ -747,7 +747,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%2A%2A%2F%5C%2A%2A" + ><a href="#%2A%2A%2F%5C%2A%2A" >(**/\**)</a @@ -836,7 +836,7 @@ forall a. [a] -> [a] -> [a] >**/\** :: forall a. [[a]] -> [[a]] -> [[a]] <a href="Operators.html#%2A%2A%2F%5C%2A%2A" + ><a href="#%2A%2A%2F%5C%2A%2A" >**/\**</a @@ -876,7 +876,7 @@ forall a b c. (a -> b -> c) -> [a] -> [b] -> [c] >[[a]] -> [a] -> [a] forall a. [[a]] -> [a] -> [a] <a href="Operators.html#%2A%2F%5C%2A" + ><a href="#%2A%2F%5C%2A" >(*/\*)</a @@ -901,7 +901,7 @@ forall a. [[a]] -> [a] -> [a] >[[a]] -> [[a]] -> [[a]] forall a. [a] -> [a] -> [a] <a href="Operators.html#%2B%2B%2B" + ><a href="#%2B%2B%2B" >+++</a @@ -939,7 +939,7 @@ forall a. [a] -> [a] -> [a] >[[a]] -> [[a]] -> [[a]] forall a. [a] -> [a] -> [a] <a href="Operators.html#%24%24%24" + ><a href="#%24%24%24" >$$$</a @@ -971,7 +971,7 @@ forall a. [a] -> [a] -> [a] ><a href="Operators.html#%23.%23" + ><a href="#%23.%23" >(#.#)</a @@ -1068,7 +1068,7 @@ forall a. [a] -> [a] -> [a] >#.# :: forall a b c. a -> b -> c -> (a, b) <a href="Operators.html#%23.%23" + ><a href="#%23.%23" >#.#</a ===================================== utils/haddock/hypsrc-test/ref/src/Polymorphism.html ===================================== @@ -68,7 +68,7 @@ ><a href="Polymorphism.html#foo" + ><a href="#foo" >foo</a @@ -120,7 +120,7 @@ >foo :: forall a. a -> a -> a <a href="Polymorphism.html#foo" + ><a href="#foo" >foo</a @@ -151,7 +151,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#foo%27" + ><a href="#foo%27" >foo'</a @@ -218,7 +218,7 @@ forall a. HasCallStack => a >foo' :: forall a. a -> a -> a <a href="Polymorphism.html#foo%27" + ><a href="#foo%27" >foo'</a @@ -251,7 +251,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#bar" + ><a href="#bar" >bar</a @@ -318,7 +318,7 @@ forall a. HasCallStack => a >bar :: forall a b. a -> b -> (a, b) <a href="Polymorphism.html#bar" + ><a href="#bar" >bar</a @@ -349,7 +349,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#bar%27" + ><a href="#bar%27" >bar'</a @@ -440,7 +440,7 @@ forall a. HasCallStack => a >bar' :: forall a b. a -> b -> (a, b) <a href="Polymorphism.html#bar%27" + ><a href="#bar%27" >bar'</a @@ -473,7 +473,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#baz" + ><a href="#baz" >baz</a @@ -570,7 +570,7 @@ forall a. HasCallStack => a >baz :: forall a b. a -> (a -> [a -> a] -> b) -> b <a href="Polymorphism.html#baz" + ><a href="#baz" >baz</a @@ -601,7 +601,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#baz%27" + ><a href="#baz%27" >baz'</a @@ -722,7 +722,7 @@ forall a. HasCallStack => a >baz' :: forall a b. a -> (a -> [a -> a] -> b) -> b <a href="Polymorphism.html#baz%27" + ><a href="#baz%27" >baz'</a @@ -754,7 +754,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#quux" + ><a href="#quux" >quux</a @@ -838,7 +838,7 @@ forall a. HasCallStack => a >quux :: forall a. a -> (forall a. a -> a) -> a <a href="Polymorphism.html#quux" + ><a href="#quux" >quux</a @@ -908,7 +908,7 @@ forall a. a -> a ><a href="Polymorphism.html#quux%27" + ><a href="#quux%27" >quux'</a @@ -1007,7 +1007,7 @@ forall a. a -> a >quux' :: forall a. a -> (forall a. a -> a) -> a <a href="Polymorphism.html#quux%27" + ><a href="#quux%27" >quux'</a @@ -1083,7 +1083,7 @@ forall a. a -> a ><a href="Polymorphism.html#num" + ><a href="#num" >num</a @@ -1153,7 +1153,7 @@ forall a. a -> a >num :: forall a. Num a => a -> a -> a <a href="Polymorphism.html#num" + ><a href="#num" >num</a @@ -1184,7 +1184,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#num%27" + ><a href="#num%27" >num'</a @@ -1269,7 +1269,7 @@ forall a. HasCallStack => a >num' :: forall a. Num a => a -> a -> a <a href="Polymorphism.html#num%27" + ><a href="#num%27" >num'</a @@ -1302,7 +1302,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#eq" + ><a href="#eq" >eq</a @@ -1415,7 +1415,7 @@ forall a. HasCallStack => a >eq :: forall a b. (Eq a, Eq b) => [a] -> [b] -> (a, b) <a href="Polymorphism.html#eq" + ><a href="#eq" >eq</a @@ -1446,7 +1446,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#eq%27" + ><a href="#eq%27" >eq'</a @@ -1583,7 +1583,7 @@ forall a. HasCallStack => a >eq' :: forall a b. (Eq a, Eq b) => [a] -> [b] -> (a, b) <a href="Polymorphism.html#eq%27" + ><a href="#eq%27" >eq'</a @@ -1616,7 +1616,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#mon" + ><a href="#mon" >mon</a @@ -1707,7 +1707,7 @@ forall a. HasCallStack => a >mon :: forall (m :: * -> *) a. Monad m => (a -> m a) -> m a <a href="Polymorphism.html#mon" + ><a href="#mon" >mon</a @@ -1738,7 +1738,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#mon%27" + ><a href="#mon%27" >mon'</a @@ -1853,7 +1853,7 @@ forall a. HasCallStack => a >mon' :: forall (m :: * -> *) a. Monad m => (a -> m a) -> m a <a href="Polymorphism.html#mon%27" + ><a href="#mon%27" >mon'</a @@ -1890,7 +1890,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#norf" + ><a href="#norf" >norf</a @@ -1992,7 +1992,7 @@ forall a. HasCallStack => a >norf :: forall a. a -> (forall a. Ord a => a -> a) -> a <a href="Polymorphism.html#norf" + ><a href="#norf" >norf</a @@ -2050,7 +2050,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#norf%27" + ><a href="#norf%27" >norf'</a @@ -2167,7 +2167,7 @@ forall a. HasCallStack => a >norf' :: forall a. a -> (forall a. Ord a => a -> a) -> a <a href="Polymorphism.html#norf%27" + ><a href="#norf%27" >norf'</a @@ -2230,7 +2230,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#plugh" + ><a href="#plugh" >plugh</a @@ -2285,7 +2285,7 @@ forall a. HasCallStack => a >plugh :: forall a. a -> a <a href="Polymorphism.html#plugh" + ><a href="#plugh" >plugh</a @@ -2342,7 +2342,7 @@ forall a. HasCallStack => a ><a href="Polymorphism.html#thud" + ><a href="#thud" >thud</a @@ -2449,7 +2449,7 @@ forall a. HasCallStack => a >thud :: forall a b. (a -> b) -> a -> (a, b) <a href="Polymorphism.html#thud" + ><a href="#thud" >thud</a ===================================== utils/haddock/hypsrc-test/ref/src/PositionPragmas.html ===================================== @@ -57,7 +57,7 @@ ><a href="PositionPragmas.html#foo" + ><a href="#foo" >foo</a @@ -82,7 +82,7 @@ >foo :: String <a href="PositionPragmas.html#foo" + ><a href="#foo" >foo</a @@ -98,7 +98,7 @@ >String <a href="PositionPragmas.html#bar" + ><a href="#bar" >bar</a @@ -126,7 +126,7 @@ ><a href="PositionPragmas.html#bar" + ><a href="#bar" >bar</a @@ -151,7 +151,7 @@ >bar :: String <a href="PositionPragmas.html#bar" + ><a href="#bar" >bar</a @@ -167,7 +167,7 @@ >String <a href="PositionPragmas.html#foo" + ><a href="#foo" >foo</a ===================================== utils/haddock/hypsrc-test/ref/src/Quasiquoter.html ===================================== @@ -30,7 +30,7 @@ > <a href="Quasiquoter.html#string" + ><a href="#string" >string</a @@ -94,7 +94,7 @@ ><a href="Quasiquoter.html#string" + ><a href="#string" >string</a @@ -119,7 +119,7 @@ >string :: QuasiQuoter <a href="Quasiquoter.html#string" + ><a href="#string" >string</a ===================================== utils/haddock/hypsrc-test/ref/src/Records.html ===================================== @@ -72,7 +72,7 @@ > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -86,7 +86,7 @@ > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -108,7 +108,7 @@ >Point -> Int <a href="Records.html#x" + ><a href="#x" >x</a @@ -142,7 +142,7 @@ >Point -> Int <a href="Records.html#y" + ><a href="#y" >y</a @@ -185,7 +185,7 @@ ><a href="Records.html#point" + ><a href="#point" >point</a @@ -217,7 +217,7 @@ > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -232,7 +232,7 @@ >point :: Int -> Int -> Point <a href="Records.html#point" + ><a href="#point" >point</a @@ -271,7 +271,7 @@ > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -286,7 +286,7 @@ >x :: Int <a href="Records.html#x" + ><a href="#x" >x</a @@ -314,7 +314,7 @@ >y :: Int <a href="Records.html#y" + ><a href="#y" >y</a @@ -354,7 +354,7 @@ ><a href="Records.html#lengthSqr" + ><a href="#lengthSqr" >lengthSqr</a @@ -366,7 +366,7 @@ > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -391,7 +391,7 @@ >lengthSqr :: Point -> Int <a href="Records.html#lengthSqr" + ><a href="#lengthSqr" >lengthSqr</a @@ -402,7 +402,7 @@ >(<a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -417,7 +417,7 @@ >x :: Point -> Int <a href="Records.html#x" + ><a href="#x" >x</a @@ -447,7 +447,7 @@ >y :: Point -> Int <a href="Records.html#y" + ><a href="#y" >y</a @@ -564,7 +564,7 @@ forall a. Num a => a -> a -> a ><a href="Records.html#lengthSqr%27" + ><a href="#lengthSqr%27" >lengthSqr'</a @@ -576,7 +576,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -601,7 +601,7 @@ forall a. Num a => a -> a -> a >lengthSqr' :: Point -> Int <a href="Records.html#lengthSqr%27" + ><a href="#lengthSqr%27" >lengthSqr'</a @@ -612,7 +612,7 @@ forall a. Num a => a -> a -> a >(<a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -630,7 +630,7 @@ forall a. Num a => a -> a -> a x :: Point -> Int x :: Int <a href="Records.html#x" + ><a href="#x" >x</a @@ -647,7 +647,7 @@ x :: Int y :: Point -> Int y :: Int <a href="Records.html#y" + ><a href="#y" >y</a @@ -753,7 +753,7 @@ forall a. Num a => a -> a -> a ><a href="Records.html#translateX" + ><a href="#translateX" >translateX</a @@ -763,7 +763,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#translateY" + ><a href="#translateY" >translateY</a @@ -775,7 +775,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -797,7 +797,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -812,7 +812,7 @@ forall a. Num a => a -> a -> a >translateX :: Point -> Int -> Point <a href="Records.html#translateX" + ><a href="#translateX" >translateX</a @@ -866,7 +866,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#x" + ><a href="#x" >x</a @@ -878,7 +878,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#x" + ><a href="#x" >x</a @@ -919,7 +919,7 @@ forall a. Num a => a -> a -> a >translateY :: Point -> Int -> Point <a href="Records.html#translateY" + ><a href="#translateY" >translateY</a @@ -973,7 +973,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#y" + ><a href="#y" >y</a @@ -985,7 +985,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#y" + ><a href="#y" >y</a @@ -1027,7 +1027,7 @@ forall a. Num a => a -> a -> a ><a href="Records.html#translate" + ><a href="#translate" >translate</a @@ -1059,7 +1059,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -1071,7 +1071,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -1086,7 +1086,7 @@ forall a. Num a => a -> a -> a >translate :: Int -> Int -> Point -> Point <a href="Records.html#translate" + ><a href="#translate" >translate</a @@ -1261,7 +1261,7 @@ forall a. Num a => a -> a -> a > <a href="Records.html#Point" + ><a href="#Point" >Point</a @@ -1278,7 +1278,7 @@ y :: Point -> Int x :: Int y :: Int <a href="Records.html#x" + ><a href="#x" >..</a @@ -1309,7 +1309,7 @@ y :: Int > <a href="Records.html#x" + ><a href="#x" >x</a @@ -1345,7 +1345,7 @@ y :: Int > <a href="Records.html#y" + ><a href="#y" >y</a ===================================== utils/haddock/hypsrc-test/ref/src/TemplateHaskellQuasiquotes.html ===================================== @@ -68,7 +68,7 @@ ><a href="TemplateHaskellQuasiquotes.html#aDecl" + ><a href="#aDecl" >aDecl</a @@ -93,7 +93,7 @@ >aDecl :: DecsQ <a href="TemplateHaskellQuasiquotes.html#aDecl" + ><a href="#aDecl" >aDecl</a @@ -132,7 +132,7 @@ >TypeQ <a href="TemplateHaskellQuasiquotes.html#aType" + ><a href="#aType" >aType</a @@ -190,7 +190,7 @@ >PatQ <a href="TemplateHaskellQuasiquotes.html#aPattern" + ><a href="#aPattern" >aPattern</a @@ -207,7 +207,7 @@ >ExpQ <a href="TemplateHaskellQuasiquotes.html#anExpression" + ><a href="#anExpression" >anExpression</a @@ -232,7 +232,7 @@ ><a href="TemplateHaskellQuasiquotes.html#aPattern" + ><a href="#aPattern" >aPattern</a @@ -257,7 +257,7 @@ >aPattern :: PatQ <a href="TemplateHaskellQuasiquotes.html#aPattern" + ><a href="#aPattern" >aPattern</a @@ -365,7 +365,7 @@ >PatQ <a href="TemplateHaskellQuasiquotes.html#aNumberPattern" + ><a href="#aNumberPattern" >aNumberPattern</a @@ -409,7 +409,7 @@ ><a href="TemplateHaskellQuasiquotes.html#aNumberPattern" + ><a href="#aNumberPattern" >aNumberPattern</a @@ -434,7 +434,7 @@ >aNumberPattern :: PatQ <a href="TemplateHaskellQuasiquotes.html#aNumberPattern" + ><a href="#aNumberPattern" >aNumberPattern</a @@ -499,7 +499,7 @@ ><a href="TemplateHaskellQuasiquotes.html#anExpression" + ><a href="#anExpression" >anExpression</a @@ -509,7 +509,7 @@ > <a href="TemplateHaskellQuasiquotes.html#anExpression2" + ><a href="#anExpression2" >anExpression2</a @@ -534,7 +534,7 @@ >anExpression :: ExpQ <a href="TemplateHaskellQuasiquotes.html#anExpression" + ><a href="#anExpression" >anExpression</a @@ -579,7 +579,7 @@ >ExpQ <a href="TemplateHaskellQuasiquotes.html#anExpression2" + ><a href="#anExpression2" >anExpression2</a @@ -617,7 +617,7 @@ >anExpression2 :: ExpQ <a href="TemplateHaskellQuasiquotes.html#anExpression2" + ><a href="#anExpression2" >anExpression2</a @@ -674,7 +674,7 @@ ><a href="TemplateHaskellQuasiquotes.html#aType" + ><a href="#aType" >aType</a @@ -699,7 +699,7 @@ >aType :: TypeQ <a href="TemplateHaskellQuasiquotes.html#aType" + ><a href="#aType" >aType</a @@ -764,7 +764,7 @@ ><a href="TemplateHaskellQuasiquotes.html#typedExpr1" + ><a href="#typedExpr1" >typedExpr1</a @@ -801,7 +801,7 @@ >typedExpr1 :: Code Q () <a href="TemplateHaskellQuasiquotes.html#typedExpr1" + ><a href="#typedExpr1" >typedExpr1</a @@ -836,7 +836,7 @@ ><a href="TemplateHaskellQuasiquotes.html#typedExpr" + ><a href="#typedExpr" >typedExpr</a @@ -873,7 +873,7 @@ >typedExpr :: Code Q () <a href="TemplateHaskellQuasiquotes.html#typedExpr" + ><a href="#typedExpr" >typedExpr</a @@ -907,7 +907,7 @@ forall a b. a -> b -> a >Code Q () <a href="TemplateHaskellQuasiquotes.html#typedExpr1" + ><a href="#typedExpr1" >typedExpr1</a ===================================== utils/haddock/hypsrc-test/ref/src/TemplateHaskellSplices.html ===================================== @@ -89,7 +89,7 @@ >foo :: Integer <a href="TemplateHaskellSplices.html#foo" + ><a href="#foo" >foo</a @@ -138,7 +138,7 @@ forall a. a -> a >pat :: [(a, String)] -> () <a href="TemplateHaskellSplices.html#pat" + ><a href="#pat" >pat</a @@ -195,7 +195,7 @@ forall a. a -> a >qux :: () <a href="TemplateHaskellSplices.html#qux" + ><a href="#qux" >qux</a ===================================== utils/haddock/hypsrc-test/ref/src/Types.html ===================================== @@ -65,7 +65,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -79,7 +79,7 @@ > <a href="Types.html#Bar" + ><a href="#Bar" >Bar</a @@ -93,7 +93,7 @@ > <a href="Types.html#Baz" + ><a href="#Baz" >Baz</a @@ -115,7 +115,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -129,7 +129,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -157,7 +157,7 @@ > <a href="Types.html#FooQuux" + ><a href="#FooQuux" >FooQuux</a @@ -172,7 +172,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -182,7 +182,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -200,7 +200,7 @@ > <a href="Types.html#QuuxFoo" + ><a href="#QuuxFoo" >QuuxFoo</a @@ -215,7 +215,7 @@ >(<a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -225,7 +225,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -257,7 +257,7 @@ > <a href="Types.html#Norf" + ><a href="#Norf" >Norf</a @@ -303,7 +303,7 @@ > <a href="Types.html#Norf" + ><a href="#Norf" >Norf</a @@ -312,7 +312,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -320,7 +320,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -333,7 +333,7 @@ > <a href="Types.html#NFQ" + ><a href="#NFQ" >NFQ</a @@ -342,7 +342,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -350,7 +350,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -370,7 +370,7 @@ > <a href="Types.html#Norf" + ><a href="#Norf" >Norf</a @@ -379,7 +379,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -387,7 +387,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -400,7 +400,7 @@ > <a href="Types.html#NQF" + ><a href="#NQF" >NQF</a @@ -409,7 +409,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -417,7 +417,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -447,7 +447,7 @@ > <a href="Types.html#Norf%27" + ><a href="#Norf%27" >Norf'</a @@ -493,7 +493,7 @@ > <a href="Types.html#Norf%27" + ><a href="#Norf%27" >Norf'</a @@ -502,7 +502,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -510,7 +510,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -524,7 +524,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -534,7 +534,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -556,7 +556,7 @@ > <a href="Types.html#Norf%27" + ><a href="#Norf%27" >Norf'</a @@ -565,7 +565,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -573,7 +573,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -587,7 +587,7 @@ >(<a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -597,7 +597,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -620,7 +620,7 @@ ><a href="Types.html#norf1" + ><a href="#norf1" >norf1</a @@ -632,7 +632,7 @@ > <a href="Types.html#Norf" + ><a href="#Norf" >Norf</a @@ -640,7 +640,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -648,7 +648,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -673,7 +673,7 @@ >norf1 :: Norf Foo Quux -> Int <a href="Types.html#norf1" + ><a href="#norf1" >norf1</a @@ -684,7 +684,7 @@ >(<a href="Types.html#NFQ" + ><a href="#NFQ" >NFQ</a @@ -694,7 +694,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -713,7 +713,7 @@ >Quux <a href="Types.html#Bar" + ><a href="#Bar" >Bar</a @@ -739,7 +739,7 @@ ><a href="Types.html#norf1" + ><a href="#norf1" >norf1</a @@ -749,7 +749,7 @@ >(<a href="Types.html#NFQ" + ><a href="#NFQ" >NFQ</a @@ -759,7 +759,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -778,7 +778,7 @@ >Quux <a href="Types.html#Baz" + ><a href="#Baz" >Baz</a @@ -809,7 +809,7 @@ ><a href="Types.html#norf2" + ><a href="#norf2" >norf2</a @@ -821,7 +821,7 @@ > <a href="Types.html#Norf" + ><a href="#Norf" >Norf</a @@ -829,7 +829,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -837,7 +837,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -862,7 +862,7 @@ >norf2 :: Norf Quux Foo -> Int <a href="Types.html#norf2" + ><a href="#norf2" >norf2</a @@ -873,7 +873,7 @@ >(<a href="Types.html#NQF" + ><a href="#NQF" >NQF</a @@ -884,7 +884,7 @@ >Quux <a href="Types.html#Bar" + ><a href="#Bar" >Bar</a @@ -894,7 +894,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -928,7 +928,7 @@ ><a href="Types.html#norf2" + ><a href="#norf2" >norf2</a @@ -938,7 +938,7 @@ >(<a href="Types.html#NQF" + ><a href="#NQF" >NQF</a @@ -949,7 +949,7 @@ >Quux <a href="Types.html#Baz" + ><a href="#Baz" >Baz</a @@ -959,7 +959,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1003,7 +1003,7 @@ ><a href="Types.html#norf1%27" + ><a href="#norf1%27" >norf1'</a @@ -1015,7 +1015,7 @@ > <a href="Types.html#Norf%27" + ><a href="#Norf%27" >Norf'</a @@ -1023,7 +1023,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1031,7 +1031,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -1056,7 +1056,7 @@ >norf1' :: Norf' Foo Quux -> Int <a href="Types.html#norf1%27" + ><a href="#norf1%27" >norf1'</a @@ -1067,7 +1067,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1086,7 +1086,7 @@ >Quux <a href="Types.html#Bar" + ><a href="#Bar" >Bar</a @@ -1112,7 +1112,7 @@ ><a href="Types.html#norf1%27" + ><a href="#norf1%27" >norf1'</a @@ -1122,7 +1122,7 @@ >(<a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1141,7 +1141,7 @@ >Quux <a href="Types.html#Baz" + ><a href="#Baz" >Baz</a @@ -1172,7 +1172,7 @@ ><a href="Types.html#norf2%27" + ><a href="#norf2%27" >norf2'</a @@ -1184,7 +1184,7 @@ > <a href="Types.html#Norf%27" + ><a href="#Norf%27" >Norf'</a @@ -1192,7 +1192,7 @@ > <a href="Types.html#Quux" + ><a href="#Quux" >Quux</a @@ -1200,7 +1200,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1225,7 +1225,7 @@ >norf2' :: Norf' Quux Foo -> Int <a href="Types.html#norf2%27" + ><a href="#norf2%27" >norf2'</a @@ -1239,7 +1239,7 @@ >Quux <a href="Types.html#Bar" + ><a href="#Bar" >Bar</a @@ -1249,7 +1249,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a @@ -1281,7 +1281,7 @@ ><a href="Types.html#norf2%27" + ><a href="#norf2%27" >norf2'</a @@ -1294,7 +1294,7 @@ >Quux <a href="Types.html#Baz" + ><a href="#Baz" >Baz</a @@ -1304,7 +1304,7 @@ > <a href="Types.html#Foo" + ><a href="#Foo" >Foo</a ===================================== utils/haddock/hypsrc-test/ref/src/UsingQuasiquotes.html ===================================== @@ -69,7 +69,7 @@ >baz :: [Char] <a href="UsingQuasiquotes.html#baz" + ><a href="#baz" >baz</a View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9861b13edfd7eefb1091b469f90c0da… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9861b13edfd7eefb1091b469f90c0da… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/marge_bot_batch_merge_job] 4 commits: ghc-heap: Fix race condition with profiling builds
by Marge Bot (＠marge-bot) 14 Sep '25

14 Sep '25

Marge Bot pushed to branch wip/marge_bot_batch_merge_job at Glasgow Haskell Compiler / GHC Commits: 99b233f4 by Alison at 2025-09-13T16:51:04-04:00 ghc-heap: Fix race condition with profiling builds Apply the same fix from Closures.hs (64fd0fac83) to Heap.hs by adding empty imports to make way-dependent dependencies visible to `ghc -M`. Fixes #15197, #26407 - - - - - b26086b9 by Cheng Shao at 2025-09-14T16:49:22-04:00 hadrian: build in-tree gmp with -fvisibility=hidden When hadrian builds in-tree gmp, it should build the shared objects with -fvisibility=hidden. The gmp symbols are only used by bignum logic in ghc-internal and shouldn't be exported by the ghc-internal shared library. We should always strive to keep shared library symbol table lean, which benefits platforms with slow dynamic linker or even hard limits about how many symbols can be exported (e.g. macos dyld, win32 dll and wasm dyld). - - - - - 47efd3d7 by Cheng Shao at 2025-09-14T16:49:26-04:00 Revert "wasm: add brotli compression for ghci browser mode" This reverts commit 731217ce68a1093b5f9e26a07d5bd2cdade2b352. Benchmarks show non-negligible overhead when browser runs on the same host, which is the majority of actual use cases. - - - - - 5b767424 by Cheng Shao at 2025-09-14T16:49:26-04:00 wasm: remove etag logic in ghci browser mode web server This commit removes the etag logic in dyld script's ghci browser mode web server. It was meant to support caching logic of wasm shared libraries, but even if the port is manually specified to make caching even relevant, for localhost the extra overhead around etag logic is simply not worth it according to benchmarks. - - - - - 3 changed files: - hadrian/src/Rules/Gmp.hs - libraries/ghc-heap/GHC/Exts/Heap.hs - utils/jsffi/dyld.mjs Changes: ===================================== hadrian/src/Rules/Gmp.hs ===================================== @@ -12,7 +12,6 @@ import Utilities import Hadrian.BuildPath import Hadrian.Expression import Settings.Builders.Common (cArgs, getStagedCCFlags) -import GHC.Platform.ArchOS -- | Build in-tree GMP library objects (if GmpInTree flag is set) and return -- their paths. @@ -128,7 +127,10 @@ gmpRules = do mconcat [ cArgs , getStagedCCFlags - , anyTargetArch [ArchWasm32] ? arg "-fvisibility=default" + -- gmp symbols are only used by bignum logic in + -- ghc-internal and shouldn't be exported by the + -- ghc-internal shared library. + , arg "-fvisibility=hidden" ] env <- sequence [ builderEnvironment "CC" $ Cc CompileC (stage ctx) ===================================== libraries/ghc-heap/GHC/Exts/Heap.hs ===================================== @@ -67,10 +67,26 @@ import GHC.Exts.Heap.ClosureTypes import GHC.Exts.Heap.Constants import GHC.Exts.Heap.ProfInfo.Types #if defined(PROFILING) +import GHC.Exts.Heap.InfoTable () -- See Note [No way-dependent imports] import GHC.Exts.Heap.InfoTableProf #else import GHC.Exts.Heap.InfoTable +import GHC.Exts.Heap.InfoTableProf () -- See Note [No way-dependent imports] + +{- +Note [No way-dependent imports] +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +`ghc -M` currently assumes that the imports for a module are the same +in every way. This is arguably a bug, but breaking this assumption by +importing different things in different ways can cause trouble. For +example, this module in the profiling way imports and uses +GHC.Exts.Heap.InfoTableProf. When it was not also imported in the +vanilla way, there were intermittent build failures due to this module +being compiled in the profiling way before GHC.Exts.Heap.InfoTableProf +in the profiling way. (#15197) +-} #endif + import GHC.Exts.Heap.Utils import qualified GHC.Exts.Heap.FFIClosures as FFIClosures import qualified GHC.Exts.Heap.ProfInfo.PeekProfInfo as PPI ===================================== utils/jsffi/dyld.mjs ===================================== @@ -291,7 +291,7 @@ const isNode = Boolean(globalThis?.process?.versions?.node); // factor out browser-only/node-only logic into different modules. For // now, just make these global let bindings optionally initialized if // isNode and be careful to not use them in browser-only logic. -let fs, http, path, require, stream, util, wasi, ws, zlib; +let fs, http, path, require, stream, wasi, ws; if (isNode) { require = (await import("node:module")).createRequire(import.meta.url); @@ -300,9 +300,7 @@ if (isNode) { http = require("http"); path = require("path"); stream = require("stream"); - util = require("util"); wasi = require("wasi"); - zlib = require("zlib"); // Optional npm dependencies loaded via NODE_PATH try { @@ -561,30 +559,8 @@ args.rpc.opened.then(() => main(args)); }[path.extname(p)] || "application/octet-stream" ); - const buf = Buffer.from(await fs.promises.readFile(p)); - const etag = `sha512-${Buffer.from( - await crypto.subtle.digest("SHA-512", buf) - ).toString("base64")}`; - - res.setHeader("ETag", etag); - - if (req.headers["if-none-match"] === etag) { - res.writeHead(304); - res.end(); - return; - } - - res.setHeader("Content-Encoding", "br"); - res.writeHead(200); - res.end( - await util.promisify(zlib.brotliCompress)(buf, { - params: { - [zlib.constants.BROTLI_PARAM_QUALITY]: - zlib.constants.BROTLI_MIN_QUALITY, - }, - }) - ); + fs.createReadStream(p).pipe(res); return; } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/8e8daf8c4c50c2e5022b8bddfd56bb… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/8e8daf8c4c50c2e5022b8bddfd56bb… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/shorter-this-module-links] Use showUnique in internalAnchorIdent
by Oleg Grenrus (＠phadej) 14 Sep '25

14 Sep '25

Oleg Grenrus pushed to branch wip/shorter-this-module-links at Glasgow Haskell Compiler / GHC Commits: cf26a2e3 by Oleg Grenrus at 2025-09-14T23:33:54+03:00 Use showUnique in internalAnchorIdent Showing the key of Unique as a number is generally not a great idea. GHC Unique has a tag in high bits, so the raw number is unnecessarily big. So now we have ```html <a href="#l-rvgK">bar</a> ``` instead of ```html <a href="#local-6989586621679015689">bar</a> ``` Together with previous changes of shorter intra-module links the effect on compressed files is not huge, that is expected as we simply remove repetitive contents which pack well. ``` 12_694_206 Agda-2.9.0-docs-orig.tar.gz 12_566_065 Agda-2.9.0-docs.tar.gz ``` However when unpacked, the difference can be significant, e.g. Agda's largest module source got 5% reduction: ``` 14_230_117 Agda.Syntax.Parser.Parser.html 13_422_109 Agda.Syntax.Parser.Parser.html ``` The whole hyperlinked source code directory got similar reduction ``` 121M Agda-2.9.0-docs-orig/src 114M Agda-2.9.0-docs/src ``` For the reference, sources are about 2/3 of the generated haddocks ``` 178M Agda-2.9.0-docs-old 172M Agda-2.9.0-docs ``` so we get around 3.5% size reduction overall. Not bad for a small local changes. - - - - - 16 changed files: - utils/haddock/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs - utils/haddock/hypsrc-test/ref/src/CPP.html - utils/haddock/hypsrc-test/ref/src/Classes.html - utils/haddock/hypsrc-test/ref/src/Constructors.html - utils/haddock/hypsrc-test/ref/src/Identifiers.html - utils/haddock/hypsrc-test/ref/src/LinkingIdentifiers.html - utils/haddock/hypsrc-test/ref/src/Literals.html - utils/haddock/hypsrc-test/ref/src/Operators.html - utils/haddock/hypsrc-test/ref/src/Polymorphism.html - utils/haddock/hypsrc-test/ref/src/PositionPragmas.html - utils/haddock/hypsrc-test/ref/src/Quasiquoter.html - utils/haddock/hypsrc-test/ref/src/Records.html - utils/haddock/hypsrc-test/ref/src/TemplateHaskellQuasiquotes.html - utils/haddock/hypsrc-test/ref/src/TemplateHaskellSplices.html - utils/haddock/hypsrc-test/ref/src/Types.html - utils/haddock/hypsrc-test/ref/src/UsingQuasiquotes.html The diff was not included because it is too large. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cf26a2e3ddc17e729a0685aab1e1e71… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cf26a2e3ddc17e729a0685aab1e1e71… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc] Pushed new branch wip/wasm-enable-ghci-test
by Cheng Shao (＠TerrorJack) 14 Sep '25

14 Sep '25

Cheng Shao pushed new branch wip/wasm-enable-ghci-test at Glasgow Haskell Compiler / GHC -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/tree/wip/wasm-enable-ghci-test You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc] Pushed new branch wip/wasm-dyld-no-compression
by Cheng Shao (＠TerrorJack) 14 Sep '25

14 Sep '25

Cheng Shao pushed new branch wip/wasm-dyld-no-compression at Glasgow Haskell Compiler / GHC -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/tree/wip/wasm-dyld-no-compression You're receiving this email because of your account on gitlab.haskell.org.

1 0