From 9bd65ee47a43529af2ad8e350fdd0c372bc5964c Mon Sep 17 00:00:00 2001
From: Vladislav Zavialov <vlad.z.4096@gmail.com>
Date: Sun, 12 Apr 2020 15:16:43 +0300
Subject: Handle LexicalNegation's ITprefixminus

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

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

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index f8267f21..fc277daf 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -270,6 +270,7 @@ classify tok =
     ITtilde                -> TkGlyph
     ITdarrow            {} -> TkGlyph
     ITminus                -> TkGlyph
+    ITprefixminus          -> TkGlyph
     ITbang                 -> TkGlyph
     ITdot                  -> TkOperator
     ITstar              {} -> TkOperator
-- 
cgit v1.2.3