[github/fretlink/text-pipes.git] / bench / IO.hs

import qualified Data.Text.IO as T
import qualified Data.Text as T
import qualified Data.Text.Lazy.IO as TL
import qualified Data.Text.Lazy as TL

import Pipes
import qualified Pipes.Text as TP
import qualified Pipes.ByteString as BP
import Pipes.Safe

main = textaction
big = "../../examples/txt/words2.txt"

textaction = T.readFile big >>= T.putStrLn
pipeaction =  runEffect $ for ((TP.readFile big) >> return ()) (lift . T.putStrLn)
Commit	Line	Data
3694350a	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