From 20098c8951743244bb71b41f470a7546ec31d0f2 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')

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