yajl 0.3 → 0.3.0.1

raw patch · 2 files changed

+16/−15 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Text/JSON/YAJL.chs +15/−14
• yajl.cabal +1/−1

@@ -151,15 +151,15 @@  freeParserCallbacks :: Ptr () -> IO () freeParserCallbacks raw = do-	{# get yajl_callbacks->yajl_null #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_boolean #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_number #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_string #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_start_map #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_map_key #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_end_map #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_start_array #} raw >>= freeHaskellFunPtr-	{# get yajl_callbacks->yajl_end_array #} raw >>= freeHaskellFunPtr+	{# get yajl_callbacks->yajl_null #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_boolean #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_number #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_string #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_start_map #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_map_key #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_end_map #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_start_array #} raw >>= freeFunPtr+	{# get yajl_callbacks->yajl_end_array #} raw >>= freeFunPtr  foreign import ccall "yajl/yajl_parse.h &yajl_free" 	cParserFree :: FunPtr (Ptr ParserHandle -> IO ())@@ -243,6 +243,11 @@ foreign import ccall "wrapper" 	allocCallbackUBuf :: CallbackUBuf -> IO (FunPtr CallbackUBuf) +freeFunPtr :: FunPtr a -> IO ()+freeFunPtr ptr = if ptr == nullFunPtr+	then return ()+	else freeHaskellFunPtr ptr+ callback :: (Parser m -> a -> IO (FunPtr b))          -> (Ptr () -> IO (FunPtr b))          -> (Ptr () -> FunPtr b -> IO ())@@ -254,11 +259,7 @@ 	clear parser = withForeignPtr (parserCallbacks parser) $ \p -> do 		free p 		setPtr p nullFunPtr-	free p = do-		cb <- getPtr p-		if cb == nullFunPtr-			then return ()-			else freeHaskellFunPtr cb+	free p = getPtr p >>= freeFunPtr  parsedBeginArray :: Callback m (m Bool) parsedBeginArray = callback wrapCallback0

@@ -1,5 +1,5 @@ name: yajl-version: 0.3+version: 0.3.0.1 synopsis: Bindings for YAJL, an event-based JSON implementation license: GPL-3 license-file: license.txt