diff options
| author | Christiaan Baaij <christiaan.baaij@gmail.com> | 2021-04-19 19:40:16 +0200 |
|---|---|---|
| committer | Christiaan Baaij <christiaan.baaij@gmail.com> | 2022-03-16 09:20:43 +0100 |
| commit | 746df785f7dfd2fcb54d76b00eb0ee71e2abdc30 (patch) | |
| tree | 3ec9a35d2f1643db4e90852def11e50d390a6031 | |
| parent | b02188ab1cc46dd82395a22b04f890cf15f3feae (diff) | |
Add Haddock support for the OPAQUE pragma
| -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 3929c286..0658d493 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 @@ -379,6 +380,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 |