From 3924891dc47a96e13707489b4e55b3fe8d1ce1d7 Mon Sep 17 00:00:00 2001 From: Simon Marlow 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/Interface') 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