aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorkrasimir <unknown>2004-07-27 23:02:36 +0000
committerkrasimir <unknown>2004-07-27 23:02:36 +0000
commitd515d0c28bd03f9291d22ab16887142dc56a47e7 (patch)
tree5e8df4c1d4f62f5a86ad6926e75d890127b2d72e
parentf183618bf9c523800ae84d0cb72c65b7ef22aa0b (diff)
[haddock @ 2004-07-27 23:02:36 by krasimir]
escape names in the index
-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