aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-06-23 12:03:27 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-06-23 12:03:27 +0000
commit3924891dc47a96e13707489b4e55b3fe8d1ce1d7 (patch)
tree1895adcb65c1f8a48f3cf2d303efaa0eb8a11c86 /src/Haddock/Interface
parentca857af46ba888ff8fec3f0e93ebbe3343b7abf8 (diff)
Unresolved identifiers in Doc get replaced with DocMonospaced
rather than plain strings
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Rn.hs2
1 files changed, 1 insertions, 1 deletions
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)