blob: fd2a55a646088b04edb3d8cdcd4d125a844cd4f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
import Control.Concurrent
import Data.ByteString as BS
import System.Environment
main :: IO ()
main = do args <- getArgs
case args of
[x, y, z] -> f x y z
_ -> error ("Bad args: " ++ show args)
f :: String -> String -> String -> IO ()
f x y z = do bs <- BS.readFile y
BS.writeFile z bs
threadDelay 1000000
Prelude.writeFile x "FAIL"
|
