diff options
| author | krasimir <unknown> | 2004-07-27 23:02:36 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-27 23:02:36 +0000 |
| commit | d515d0c28bd03f9291d22ab16887142dc56a47e7 (patch) | |
| tree | 5e8df4c1d4f62f5a86ad6926e75d890127b2d72e | |
| parent | f183618bf9c523800ae84d0cb72c65b7ef22aa0b (diff) | |
[haddock @ 2004-07-27 23:02:36 by krasimir]
escape names in the index
| -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 |