From 8dcc6d652c434b6ed9aea7a6019447aa72e7ba28 Mon Sep 17 00:00:00 2001
From: Matthías Páll Gissurarson <mpg@mpg.is>
Date: Fri, 19 Jun 2020 17:47:48 +0200
Subject: Adapt Haddock for QualifiedDo
---
haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'haddock-api')
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index 0974d6da..285b0ee7 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -176,7 +176,7 @@ classify tok =
ITdata -> TkKeyword
ITdefault -> TkKeyword
ITderiving -> TkKeyword
- ITdo -> TkKeyword
+ ITdo {} -> TkKeyword
ITelse -> TkKeyword
IThiding -> TkKeyword
ITforeign -> TkKeyword
@@ -209,7 +209,7 @@ classify tok =
ITcapiconv -> TkKeyword
ITprimcallconv -> TkKeyword
ITjavascriptcallconv -> TkKeyword
- ITmdo -> TkKeyword
+ ITmdo {} -> TkKeyword
ITfamily -> TkKeyword
ITrole -> TkKeyword
ITgroup -> TkKeyword
--
cgit v1.2.3