From 3924891dc47a96e13707489b4e55b3fe8d1ce1d7 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 23 Jun 2010 12:03:27 +0000
Subject: Unresolved identifiers in Doc get replaced with DocMonospaced rather
 than plain strings

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

(limited to 'src/Haddock')

diff --git a/src/Haddock/Interface/Rn.hs b/src/Haddock/Interface/Rn.hs
index 99c5d3ea..4c040f3e 100644
--- a/src/Haddock/Interface/Rn.hs
+++ b/src/Haddock/Interface/Rn.hs
@@ -42,7 +42,7 @@ rnDoc gre = unId . do_rn
     let gres = concatMap (\rdrName ->
                  map gre_name (lookupGRE_RdrName rdrName gre)) choices
     case gres of
-      [] -> return (DocString (ids2string ids))
+      []   -> return (DocMonospaced (DocString (ids2string ids)))
       ids' -> return (DocIdentifier ids')
 
   DocModule str -> return (DocModule str)
-- 
cgit v1.2.3