bench/IO.hs

   1 import qualified Data.Text.IO as T
   2 import qualified Data.Text as T
   3 import qualified Data.Text.Lazy.IO as TL
   4 import qualified Data.Text.Lazy as TL
   5
   6 import Pipes
   7 import qualified Pipes.Text as TP
   8 import qualified Pipes.ByteString as BP
   9 import Pipes.Safe
  10
  11 main = textaction
  12 big = "../../examples/txt/words2.txt"
  13
  14 textaction = T.readFile big >>= T.putStrLn
  15 pipeaction =  runEffect $ for ((TP.readFile big) >> return ()) (lift . T.putStrLn)
  16
  17
  18
  19
  20