From e5bd5d39550692f936c973637f8ec8d314919359 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Fri, 5 Jun 2015 15:12:40 +0200
Subject: Add support for recognizing compiler pragmas in source parser.
---
haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs | 2 ++
haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs | 1 +
2 files changed, 3 insertions(+)
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index 29edb4c3..0e1ad5b2 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -35,6 +35,7 @@ data TokenType
| TkSpace
| TkComment
| TkCpp
+ | TkPragma
| TkUnknown
parse :: String -> [Token]
@@ -92,6 +93,7 @@ tokenize =
classify :: String -> TokenType
classify str
| "--" `isPrefixOf` str = TkComment
+ | "{-#" `isPrefixOf` str = TkPragma
| "{-" `isPrefixOf` str = TkComment
classify (c:_)
| isSpace c = TkSpace
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
index 9ebb8707..39d7d183 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
@@ -38,4 +38,5 @@ tokenAttrs TkSpecial = [Html.theclass "hs-special"]
tokenAttrs TkSpace = []
tokenAttrs TkComment = [Html.theclass "hs-comment"]
tokenAttrs TkCpp = [Html.theclass "hs-cpp"]
+tokenAttrs TkPragma = [Html.theclass "hs-pragma"]
tokenAttrs TkUnknown = []
--
cgit v1.2.3