io-stream sample 3 (copy)

io-stream sample 3.hs

module SampleStream where

import Prelude as P hiding(lines)

import qualified Data.ByteString.UTF8 as BU
import System.IO.Streams
import System.IO.Streams.Debug

copy :: IO ()
copy = withFileAsOutput "./test/data/Types.hs.out1" (\os -> do
  withFileAsInput "./test/data/Types.hs" (\is -> do
    -- is1 <- lines is
    -- is2 <- debugInputBS (BU.fromString "test") stdout is1
    -- connect is2 os
    connect is os
    )
  )