escape arguments of nospaceString

jwaldmann · Jul 8, 2014 · 9b269ab · 9b269ab
1 parent 2002b86
commit 9b269ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/TPDB/Xml.hs b/TPDB/Xml.hs
@@ -14,7 +14,7 @@ mkel name cs = CElem ( Elem (N name) [] cs ) ()
 rmkel name cs = return $ mkel name cs
 
 nospaceString :: String -> Content ()
-nospaceString s = CString False s ()
+nospaceString s = CString False (escape s) ()
 
 instance Typeable t => HTypeable t where 
     toHType x = let cs = show ( typeOf x ) in Prim cs cs