diff options
| -rw-r--r-- | src/HaddockHH2.hs | 2 |
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 |