mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 13:11:30 +03:00
16 lines
306 B
Idris
16 lines
306 B
Idris
module Main
|
|
|
|
import System
|
|
import System.Concurrency
|
|
|
|
main : IO ()
|
|
main = do
|
|
barrier <- makeBarrier 3
|
|
threadIDs <- for [1,2,3] $ \n => fork $ do
|
|
putStrLn "Hello"
|
|
barrierWait barrier
|
|
putStrLn "Goodbye"
|
|
for threadIDs $ \threadID =>
|
|
threadWait threadID
|
|
sleep 1
|