aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockLex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/HaddockLex.hs')
-rw-r--r--src/HaddockLex.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HaddockLex.hs b/src/HaddockLex.hs
index fdfc743a..b1de971e 100644
--- a/src/HaddockLex.hs
+++ b/src/HaddockLex.hs
@@ -23,10 +23,11 @@ data Token
| TokString String
| TokURL String
| TokBirdTrack
+ | TokAName String
deriving Show
isSpecial, isSingleQuote, isIdent :: Char -> Bool
-isSpecial c = c `elem` ['\"', '@', '/']
+isSpecial c = c `elem` ['\"', '@', '/', '#']
isSingleQuote c = c `elem` ['\'', '`']
isIdent c = isAlphaNum c || c `elem` "_.!#$%&*+/<=>?@\\^|-~"