conduit without ResourceT

6 Feb 2013 Michael Snoyman View Markdown source

As of March 2020, School of Haskell has been switched to read-only mode.

{-# START_FILE main.hs #-}
-- show
import Data.Conduit (($$))
import Data.Conduit.Binary (sourceHandle, sinkHandle)
import System.IO (withBinaryFile, IOMode (..))

main = do
    withBinaryFile "input.txt" ReadMode $ \input ->
      withBinaryFile "output.txt" WriteMode $ \output ->
      sourceHandle input $$ sinkHandle output
    readFile "output.txt" >>= putStrLn
{-# START_FILE input.txt #-}
-- show
This is the input file.