Idris2/tests/racket/forkjoin001/Main.idr

12 lines
165 B
Idris
Raw Normal View History

module Main
import System
main : IO ()
main = do
threadID <- fork $ do
sleep 1
putStrLn "Hello"
threadWait threadID
putStrLn "Goodbye"