From d515d0c28bd03f9291d22ab16887142dc56a47e7 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Tue, 27 Jul 2004 23:02:36 +0000
Subject: [haddock @ 2004-07-27 23:02:36 by krasimir] escape names in the index

---
 src/HaddockHH2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HaddockHH2.hs')

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
-- 
cgit v1.2.3