aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/HaddockHH2.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaddockHH2.hs b/src/HaddockHH2.hs
index bb291bd7..f621e118 100644
--- a/src/HaddockHH2.hs
+++ b/src/HaddockHH2.hs
@@ -89,7 +89,7 @@ ppHH2Index odir package ifaces = do
ppList [] = empty
ppList ((name,mdls):vs) =
- text "<Keyword Term=\"" <> text (show name) <> text "\">" $$
+ text "<Keyword Term=\"" <> text (escapeStr (show name)) <> text "\">" $$
nest 4 (vcat (map (ppJump name) mdls)) $$
text "</Keyword>" $$
ppList vs