diff options
author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-05-24 17:29:33 +0530 |
---|---|---|
committer | Zubin Duggal <zubin.duggal@gmail.com> | 2022-05-24 17:29:33 +0530 |
commit | 6a3ab6d62645df333fd07eac44c0d96a8977d7a9 (patch) | |
tree | e95da8144003917942e77bd3267b715baf2c7ec3 | |
parent | e2520df3fffa0cf22fb19c5fb872832d11c07d35 (diff) | |
download | haskell-wip/fix-haddock-8.10.tar.gz |
Fix compilation with -haddock on GHC <= 8.10wip/fix-haddock-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 } |