diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-03-24 15:06:26 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-03-24 15:06:26 +0000 |
| commit | 559e41505e81d93939e9afa6aa9793b0a428924f (patch) | |
| tree | 6112fb3a59557579e87bc9099a362477dc1c4be8 | |
| parent | d2779a3e659d4e9f7044c346a566e5fe4edbdb9b (diff) | |
| parent | 746df785f7dfd2fcb54d76b00eb0ee71e2abdc30 (diff) | |
Merge branch 'wip/opaque_pragma' into 'ghc-head'
Add Haddock support for the OPAQUE pragma
See merge request ghc/haddock!2
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs index a218b118..76ae5be3 100644 --- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs +++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs @@ -238,6 +238,7 @@ classify tok = ITrequires -> TkKeyword ITinline_prag {} -> TkPragma + ITopaque_prag {} -> TkPragma ITspec_prag {} -> TkPragma ITspec_inline_prag {} -> TkPragma ITsource_prag {} -> TkPragma @@ -376,6 +377,7 @@ inPragma True _ = True inPragma False tok = case tok of ITinline_prag {} -> True + ITopaque_prag {} -> True ITspec_prag {} -> True ITspec_inline_prag {} -> True ITsource_prag {} -> True |