pipes-extra-0.2.0: examples/compress.hs

import Control.Pipe
import Control.Pipe.Binary
import Control.Pipe.Zlib
import System.IO

main :: IO ()
main = runPipe $
  handleReader stdin >+> gzip >+> handleWriter stdout