git.iko.soy/haskell.nix
on e94de40 help sign in
haskell.nix/test/coverage/conduit.hs
19 lines 638 B history raw
1-- https://github.com/snoyberg/conduit#readme
3import Conduit
4import System.Directory (removeFile)
6main = do
7 -- Pure operations: summing numbers.
8 print $ runConduitPure $ yieldMany [1..10] .| sumC
10 -- Exception safe file access: copy a file.
11 writeFile "input.txt" "This is a test." -- create the source file
12 runConduitRes $ sourceFileBS "input.txt" .| sinkFile "output.txt" -- actual copying
13 readFile "output.txt" >>= putStrLn -- prove that it worked
15 -- Perform transformations.
16 print $ runConduitPure $ yieldMany [1..10] .| mapC (+ 1) .| sinkList
18 removeFile "input.txt"
19 removeFile "output.txt"