diff options
author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-05-24 17:29:33 +0530 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-24 22:14:30 -0400 |
commit | 2c25fff6622cdb07b681cebde7890172f7c9e44f (patch) | |
tree | 1f51d567ff677af8d106d22491ffbe0762d7a609 | |
parent | 81b3741fd5bacfa8fa63c8f963f1147036a6b0d9 (diff) | |
download | haskell-2c25fff6622cdb07b681cebde7890172f7c9e44f.tar.gz |
Fix compilation with -haddock on GHC <= 8.10
-haddock on GHC < 9.0 is quite fragile and can result in obtuse parse errors
when it encounters invalid haddock syntax.
This has started to affect users since 297156e0b8053a28a860e7a18e1816207a59547b
enabled -haddock by default on many flavours.
Furthermore, since we don't test bootstrapping with 8.10 on CI, this problem
managed to slip throught the cracks.
-rw-r--r-- | compiler/GHC/Core/Opt/LiberateCase.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/LiberateCase.hs b/compiler/GHC/Core/Opt/LiberateCase.hs index 50c027cf8a..863a19d961 100644 --- a/compiler/GHC/Core/Opt/LiberateCase.hs +++ b/compiler/GHC/Core/Opt/LiberateCase.hs @@ -395,8 +395,8 @@ lookupLevel env id -- | Options for the liberate case pass. data LibCaseOpts = LibCaseOpts - -- | Bomb-out size for deciding if potential liberatees are too big. - { lco_threshold :: !(Maybe Int) + { -- | Bomb-out size for deciding if potential liberatees are too big. + lco_threshold :: !(Maybe Int) -- | Unfolding options , lco_unfolding_opts :: !UnfoldingOpts } |