pipes-bytestring 1.0.2 → 1.0.3

raw patch · 2 files changed

+17/−17 lines, 2 files

Files

• pipes-bytestring.cabal +1/−1
• src/Pipes/ByteString.hs +16/−16

@@ -1,5 +1,5 @@ Name: pipes-bytestring-Version: 1.0.2+Version: 1.0.3 Cabal-Version: >=1.8.0.2 Build-Type: Simple License: BSD3

@@ -216,13 +216,13 @@     input into multiple chunks if it exceeds the maximum chunk size. -} hGetSome :: MonadIO m => Int -> IO.Handle -> Producer' ByteString m ()-hGetSome size h = go where+hGetSome size h = go+  where     go = do-        eof <- liftIO (IO.hIsEOF h)-        if eof+        bs <- liftIO (BS.hGetSome h size)+        if (BS.null bs)             then return ()             else do-                bs <- liftIO (BS.hGetSome h size)                 yield bs                 go {-# INLINABLE hGetSome #-}@@ -233,13 +233,13 @@     each chunk. -} hGet :: MonadIO m => Int -> IO.Handle -> Producer' ByteString m ()-hGet size h = go where+hGet size h = go+  where     go = do-        eof <- liftIO (IO.hIsEOF h)-        if eof+        bs <- liftIO (BS.hGet h size)+        if (BS.null bs)             then return ()             else do-                bs <- liftIO (BS.hGet h size)                 yield bs                 go {-# INLINABLE hGet #-}@@ -260,26 +260,26 @@ {-| Like 'hGetSome', except you can vary the maximum chunk size for each request -} hGetSomeN :: MonadIO m => IO.Handle -> Int -> Server' Int ByteString m ()-hGetSomeN h = go where+hGetSomeN h = go+  where     go size = do-        eof <- liftIO (IO.hIsEOF h)-        if eof+        bs <- liftIO (BS.hGetSome h size)+        if (BS.null bs)             then return ()             else do-                bs    <- liftIO (BS.hGetSome h size)                 size2 <- respond bs                 go size2 {-# INLINABLE hGetSomeN #-}  -- | Like 'hGet', except you can vary the chunk size for each request hGetN :: MonadIO m => IO.Handle -> Int -> Server' Int ByteString m ()-hGetN h = go where+hGetN h = go+  where     go size = do-        eof <- liftIO (IO.hIsEOF h)-        if eof+        bs <- liftIO (BS.hGet h size)+        if (BS.null bs)             then return ()             else do-                bs    <- liftIO (BS.hGet h size)                 size2 <- respond bs                 go size2 {-# INLINABLE hGetN #-}