mirror of
https://github.com/snoyberg/keter.git
synced 2024-12-15 01:23:09 +03:00
14 lines
334 B
Haskell
14 lines
334 B
Haskell
|
import Keter.Process
|
||
|
|
import Control.Concurrent
|
||
|
|
|
||
|
|
main = do
|
||
|
|
p <- run "runghc" "." ["test/process-torun.hs"] []
|
||
|
|
threadDelay $ 2 * 1000 * 1000
|
||
|
|
putStrLn "Done with part 1"
|
||
|
|
terminate p
|
||
|
|
|
||
|
|
p <- run "runghc" "." ["test/process-torun2.hs"] []
|
||
|
|
threadDelay $ 5 * 1000 * 1000
|
||
|
|
terminate p
|
||
|
|
putStrLn "Done with part 2"
|