diff options
| author | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-01-14 22:05:12 -0500 |
|---|---|---|
| committer | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-01-14 22:05:12 -0500 |
| commit | 3694350ac7b9c42fd64e0092a74cf0471a080058 (patch) | |
| tree | 38ddadda59a3808422fc432d37b886c456adcb1d /bench/IO.hs | |
| parent | cd4fd5dd5405ad8e324f43ee2bc81822bdece16c (diff) | |
| download | text-pipes-3694350ac7b9c42fd64e0092a74cf0471a080058.tar.gz text-pipes-3694350ac7b9c42fd64e0092a74cf0471a080058.tar.zst text-pipes-3694350ac7b9c42fd64e0092a74cf0471a080058.zip | |
Use clunky Data.Text.IO when bytestring is not explicit
Diffstat (limited to 'bench/IO.hs')
| -rw-r--r-- | bench/IO.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/bench/IO.hs b/bench/IO.hs new file mode 100644 index 0000000..b3a52f6 --- /dev/null +++ b/bench/IO.hs | |||
| @@ -0,0 +1,20 @@ | |||
| 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 | |||