~singpolyma/haskell-libxml-sax

54eb406622df077c1471a6b750475f890e2b796d — John Millikin 13 years ago 14dba70
Add missing callbacks to ``freeCallbacks``
1 files changed, 7 insertions(+), 2 deletions(-)

M Text/XML/LibXML/SAX.hs
M Text/XML/LibXML/SAX.hs => Text/XML/LibXML/SAX.hs +7 -2
@@ 125,11 125,16 @@ freeCallbacks ctx = do
	getcb_endDocument ctx >>= freeFunPtr
	getcb_startElementNs ctx >>= freeFunPtr
	getcb_endElementNs ctx >>= freeFunPtr
	getcb_reference ctx >>= freeFunPtr
	getcb_characters ctx >>= freeFunPtr
	getcb_processingInstruction ctx >>= freeFunPtr
	getcb_reference ctx >>= freeFunPtr
	getcb_comment ctx >>= freeFunPtr
	getcb_processingInstruction ctx >>= freeFunPtr
	getcb_cdataBlock ctx >>= freeFunPtr
	getcb_ignorableWhitespace ctx >>= freeFunPtr
	getcb_internalSubset ctx >>= freeFunPtr
	getcb_externalSubset ctx >>= freeFunPtr
	getcb_warning ctx >>= freeFunPtr
	getcb_error ctx >>= freeFunPtr

-- | A callback should return 'True' to continue parsing, or 'False'
-- to cancel.