Permalink
Browse files

Remove debug output.

Get rid of commented out debug statements in handleReader and
handleWriter.
  • Loading branch information...
1 parent e37048a commit 939ac893ddc3ff337d3fbee0bf5358b154a0b5f0 @pcapriotti committed Jun 2, 2012
Showing with 0 additions and 2 deletions.
  1. +0 −2 Control/Pipe/Binary.hs
View
@@ -42,7 +42,6 @@ handleReader h = go
eof <- lift . liftIO $ hIsEOF h
unless eof $ do
chunk <- lift . liftIO $ B.hGetSome h 4096
- -- lift . liftIO . putStrLn $ "chunk size " ++ show (B.length chunk)
yield chunk
go
@@ -65,7 +64,6 @@ fileWriter path = do
handleWriter:: MonadIO m => Handle -> Pipe B.ByteString Void m ()
handleWriter h = forever $ do
chunk <- await
- -- lift . liftIO . putStrLn $ "writing chunk " ++ show (B.length chunk)
lift . liftIO . B.hPut h $ chunk
-- | Act as an identity for the first 'n' bytes, then terminate returning the

0 comments on commit 939ac89

Please sign in to comment.