diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-11-18 11:57:41 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-11-18 13:42:30 +0000 |
commit | faa95a998d0e5fb10b306928700a9045bcdee061 (patch) | |
tree | c185e888eedc33ede0765de48ff924780efb979c | |
parent | fc644b1a643128041cfec25db84e417851e28bab (diff) | |
download | haskell-faa95a998d0e5fb10b306928700a9045bcdee061.tar.gz |
Fix 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 21f74a878e..77018ba844 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, |