From ac33472e834d381f95fd56586e57e6653263055c Mon Sep 17 00:00:00 2001
From: Alec Theriault <alec.theriault@gmail.com>
Date: Sat, 27 Jan 2018 00:42:02 -0800
Subject: Support the new 'ITcolumn_prag' token

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

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

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index cd2237e9..34512de8 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -249,6 +249,7 @@ classify tok =
     ITwarning_prag      {} -> TkPragma
     ITdeprecated_prag   {} -> TkPragma
     ITline_prag         {} -> TkPragma
+    ITcolumn_prag       {} -> TkPragma
     ITscc_prag          {} -> TkPragma
     ITgenerated_prag    {} -> TkPragma
     ITcore_prag         {} -> TkPragma
@@ -396,6 +397,7 @@ inPragma False tok =
     ITwarning_prag      {} -> True
     ITdeprecated_prag   {} -> True
     ITline_prag         {} -> True
+    ITcolumn_prag       {} -> True
     ITscc_prag          {} -> True
     ITgenerated_prag    {} -> True
     ITcore_prag         {} -> True
-- 
cgit v1.2.3