~singpolyma/haskell-libxml-sax

ef9b14ebd627080e05f1040cb79528d5e23c2ba3 — John Millikin 12 years ago 6c5566c
Support building in GHC 6.10
2 files changed, 11 insertions(+), 2 deletions(-)

M Text/XML/LibXML/SAX.hs
M libxml-sax.cabal
M Text/XML/LibXML/SAX.hs => Text/XML/LibXML/SAX.hs +10 -1
@@ 1,5 1,6 @@
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE CPP #-}

-----------------------------------------------------------------------------
-- |


@@ 290,7 291,7 @@ parseAttributeContent = parse . T.unpack where
	parse chars = case ReadP.readP_to_S parser chars of
		(cs,_):_ -> cs
		_ -> error "parseAttributeContent: no parse"
	parser = ReadP.manyTill content ReadP.eof
	parser = ReadP.manyTill content eof
	content = charRef +++ reference +++ text
	charRef = do
		void (ReadP.string "&#")


@@ 306,6 307,14 @@ parseAttributeContent = parse . T.unpack where
		chars <- ReadP.munch1 (/= '&')
		return (X.ContentText (T.pack chars))

#if MIN_VERSION_base(4,2,0)
	eof = ReadP.eof
#else
	eof = do
		s <- ReadP.look
		unless (null s) ReadP.pfail
#endif

-- }}}

-- end element {{{

M libxml-sax.cabal => libxml-sax.cabal +1 -1
@@ 1,5 1,5 @@
name: libxml-sax
version: 0.7.1
version: 0.7.2
synopsis: Bindings for the libXML2 SAX interface
license: MIT
license-file: license.txt