diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-12-19 23:48:28 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-12-19 23:48:54 +0000 |
commit | ed66c99646e66592de40d9226da6e799aae0a541 (patch) | |
tree | d25376bd602c73294319da87b7fc957e9e520448 | |
parent | 659fcb14937e60510e3eea4c1211ea117419905b (diff) | |
download | haskell-wip/haddock-parse-error.tar.gz |
Fix Haddock parse error in GHC.Parser.PostProcess.Haddockwip/haddock-parse-error
-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 f291830ea2..42b6c20bd6 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, |