From fb0e9bac0a5297f995b151f25aa1ce3e622e12ea Mon Sep 17 00:00:00 2001
From: Jakob Brünker <jakob.bruenker@gmail.com>
Date: Sun, 27 Mar 2022 12:03:12 +0000
Subject: Add support for \cases

See merge request ghc/ghc!7873
---
 haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs')

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index 76ae5be3..9f28d72a 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -269,6 +269,7 @@ classify tok =
     ITequal                -> TkGlyph
     ITlam                  -> TkGlyph
     ITlcase                -> TkGlyph
+    ITlcases               -> TkGlyph
     ITvbar                 -> TkGlyph
     ITlarrow            {} -> TkGlyph
     ITrarrow            {} -> TkGlyph
-- 
cgit v1.2.3