ghc/misc/examples/cats/hcat3.hs

   1 module Main (main) where
   2
   3 import LibPosix
   4
   5 main :: IO ()
   6 main = copy standardInput standardOutput
   7  where
   8   copy inn out
   9    = try (readFileDescriptor inn 4096) >>=
  10      either
  11         (\ _ -> return ())
  12         (\ s -> writeFileDescriptor out s >>
  13                 copy inn out)
  14
  15 -- 124,879 bytes/sec ( 600KB input)
  16 -- 130,694 bytes/sec ( 9.3MB input)
  17 -- 127,263 bytes/sec (25.5MB input)