xml-enumerator 0.0.0.1 → 0.0.1

raw patch · 3 files changed

+4/−1 lines, 3 files

Files

• Text/XML/Enumerator/Parse.hs +2/−0
• Text/XML/Enumerator/Render.hs +1/−0
• xml-enumerator.cabal +1/−1

@@ -161,6 +161,8 @@ tokenToEvent n (TokenDoctype t eid) = (n, [EventDoctype $ Doctype t eid []])  tnameToName :: Bool -> NSLevel -> TName -> Name+tnameToName _ _ (TName (Just "xml") name) =+    Name name (Just "http://www.w3.org/XML/1998/namespace") (Just "xml") tnameToName isAttr (NSLevel def _) (TName Nothing name) =     Name name (if isAttr then Nothing else def) Nothing tnameToName _ (NSLevel _ m) (TName (Just pref) name) =

@@ -120,6 +120,7 @@                  in (Map.insert ns pref nsmap, TName (Just pref) local, addNS')  getPrefix :: Text -> Map Text Text -> Text -> (Text, [TAttribute] -> [TAttribute])+getPrefix _ _ "http://www.w3.org/XML/1998/namespace" = ("xml", id) getPrefix ppref nsmap ns =     case Map.lookup ns nsmap of         Just pref -> (pref, id)

@@ -1,5 +1,5 @@ name:            xml-enumerator-version:         0.0.0.1+version:         0.0.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michaels@suite-sol.com>