diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-12-19 23:48:28 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-20 20:47:47 -0500 |
| commit | b4508bd6f8b6492d2e74053d7338980109174861 (patch) | |
| tree | ef4bc6fe11a1dfc345afa2d4aca554a0443cf3a8 | |
| parent | 5eb22fa2e80a1f07ca8c1bd6af093490a7a72bbb (diff) | |
| download | haskell-b4508bd6f8b6492d2e74053d7338980109174861.tar.gz | |
Fix Haddock parse error in GHC.Parser.PostProcess.Haddock
| -rw-r--r-- | compiler/GHC/Parser/PostProcess/Haddock.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Parser/PostProcess/Haddock.hs b/compiler/GHC/Parser/PostProcess/Haddock.hs index 3e1e171da3..6741476925 100644 --- a/compiler/GHC/Parser/PostProcess/Haddock.hs +++ b/compiler/GHC/Parser/PostProcess/Haddock.hs @@ -1491,8 +1491,8 @@ flattenBindsAndSigs flattenBindsAndSigs (all_bs, all_ss, all_ts, all_tfis, all_dfis, all_docs) = -- 'cmpBufSpan' is safe here with the following assumptions: -- - -- * 'LHsDecl' produced by 'decl_cls' in Parser.y always have a 'BufSpan' - -- * 'partitionBindsAndSigs' does not discard this 'BufSpan' + -- - 'LHsDecl' produced by 'decl_cls' in Parser.y always have a 'BufSpan' + -- - 'partitionBindsAndSigs' does not discard this 'BufSpan' mergeListsBy cmpBufSpan [ mapLL (\b -> ValD noExtField b) (bagToList all_bs), mapLL (\s -> SigD noExtField s) all_ss, |