Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 13 lines (8 sloc) 0.303 kB
7898aac @astro conduit stuff
astro authored
1 module Main (main) where
2
3 import Data.Conduit
4 import qualified Data.Conduit.Binary as CB
5 import System.Environment (getArgs)
6
7
8 copyFile :: FilePath -> FilePath -> IO ()
9 copyFile src dest = runResourceT $ CB.sourceFile src $$ CB.sinkFile dest
10
11 main = getArgs >>= \[src, dest] ->
12 copyFile src dest
Something went wrong with that request. Please try again.