blob: b3a52f6ca77c096567bf0aeff5043a1503723389 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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)
|
