diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-06-23 12:03:27 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-06-23 12:03:27 +0000 |
| commit | 3924891dc47a96e13707489b4e55b3fe8d1ce1d7 (patch) | |
| tree | 1895adcb65c1f8a48f3cf2d303efaa0eb8a11c86 | |
| parent | ca857af46ba888ff8fec3f0e93ebbe3343b7abf8 (diff) | |
Unresolved identifiers in Doc get replaced with DocMonospaced
rather than plain strings
| -rw-r--r-- | src/Haddock/Interface/Rn.hs | 2 |
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) |