From 37c47822d390b553ce24fe256c9700d5fd83bf9f Mon Sep 17 00:00:00 2001
From: Vladislav Zavialov <vlad.z.4096@gmail.com>
Date: Sat, 26 Sep 2020 20:59:49 +0300
Subject: Updates for the new linear types syntax: a %p -> b

---
 haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'haddock-api/src/Haddock')

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index ab3ddf76..b97ada16 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -276,6 +276,7 @@ classify tok =
     ITdot                  -> TkOperator
     ITstar              {} -> TkOperator
     ITtypeApp              -> TkGlyph
+    ITpercent              -> TkGlyph
 
     ITbiglam               -> TkGlyph
 
-- 
cgit v1.2.3