cereal-conduit 0.0.2 → 0.0.3

raw patch · 2 files changed

+10/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/Conduit/Cereal.hs +9/−7
• cereal-conduit.cabal +1/−1

@@ -29,13 +29,15 @@                                          , DC.sinkClose = close f                                          }                 Done _ _ -> throw GetDoesntConsumeInput-  where push f input = case f input of-                         Fail s -> lift $ DC.resourceThrow $ GetException s-                         Partial f' -> return $ DC.Processing (push f') (close f')-                         Done r rest -> return $ DC.Done (if BS.null rest-                                                            then Nothing-                                                            else Just rest-                                                         ) r+  where push f input+          | BS.null input = return $ DC.Processing (push f) (close f)+          | otherwise = case f input of+              Fail s -> lift $ DC.resourceThrow $ GetException s+              Partial f' -> return $ DC.Processing (push f') (close f')+              Done r rest -> return $ DC.Done (if BS.null rest+                                                 then Nothing+                                                 else Just rest+                                              ) r         close f = let Fail s = f BS.empty in lift $ DC.resourceThrow $ GetException s  -- | Convert a 'Put' into a 'Source'. Runs in constant memory.

@@ -1,5 +1,5 @@ name:            cereal-conduit-version:         0.0.2+version:         0.0.3 license:         BSD3 license-file:    LICENSE author:          Myles C. Maxfield <myles.maxfield@gmail.com>