xml 1.3.1 → 1.3.2

raw patch · 2 files changed

+8/−3 lines, 2 files

Files

• Text/XML/Light/Input.hs +7/−2
• xml.cabal +1/−1

@@ -102,7 +102,9 @@ annotAttr :: NSInfo -> Attr -> Attr annotAttr ns a@(Attr { attrKey = k}) =   case (qPrefix k, qName k) of-    (Nothing,"xmlns") -> a+    -- Do not apply the default name-space to unqualified+    -- attributes.  See Section 6.2 of <http://www.w3.org/TR/REC-xml-names>.+    (Nothing, _)      -> a     _                 -> a { attrKey = annotName ns k }  addNS :: Attr -> NSInfo -> NSInfo@@ -164,7 +166,10 @@  special c cs =    let (xs,ts) = munch "" 0 cs-  in TokText CData { cdLine = Just (fst c), cdVerbatim = CDataRaw, cdData = '<':'!':(reverse xs) } : tokens' ts+  in TokText CData { cdLine = Just (fst c)+                   , cdVerbatim = CDataRaw+                   , cdData = '<':'!':(reverse xs)+                   } : tokens' ts   where munch acc nesting ((_,'>') : ds)           | nesting == (0::Int) = ('>':acc,ds) 	 | otherwise           = munch ('>':acc) (nesting-1) ds

@@ -1,5 +1,5 @@ Name:            xml-Version:         1.3.1+Version:         1.3.2 Homepage:        http://galois.com Synopsis:        A simple XML library. Description:     A simple XML library.