From 14b36807eb6ebe36423102ef5b788773128ada81 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Jun 2002 13:20:00 +0000
Subject: [haddock @ 2002-06-03 13:20:00 by simonmar] Fix linking to qualified
 names again (thanks to Sven Panne for pointing out the bug).

---
 src/HaddockLex.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HaddockLex.hs b/src/HaddockLex.hs
index 000d62f0..df5cebb5 100644
--- a/src/HaddockLex.hs
+++ b/src/HaddockLex.hs
@@ -27,7 +27,7 @@ data Token
 
 isSpecial c     = c `elem` ['\"', '@', '/']
 isSingleQuote c = c `elem` ['\'', '`']
-isIdent c       = isAlphaNum c || c == '_'
+isIdent c       = isAlphaNum c || c == '_' || c == '.'
 
 -- simple finite-state machine for tokenising the doc string
 
-- 
cgit v1.2.3