Permalink
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (7 sloc) 175 Bytes
import Control.Pipe
import Control.Pipe.Binary
import Control.Pipe.Zlib
import System.IO
main :: IO ()
main = runPipe $
handleReader stdin >+> gzip >+> handleWriter stdout