2 files changed, 11 insertions(+), 2 deletions(-)

M Text/XML/LibXML/SAX.hs
M libxml-sax.cabal

@@ 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 {{{

@@ 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