mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-16 07:34:45 +03:00
14 lines
227 B
Idris
14 lines
227 B
Idris
|
module Main
|
||
|
|
|
||
|
|
import System.Concurrency
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
sema <- makeSemaphore 0
|
||
|
|
semaphorePost sema
|
||
|
|
semaphorePost sema
|
||
|
|
putStrLn "Hello"
|
||
|
|
semaphoreWait sema
|
||
|
|
semaphoreWait sema
|
||
|
|
putStrLn "Goodbye"
|