1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-23 03:32:09 +03:00
Idris2/tests/racket/mutex004/Main.idr
2021-03-15 13:43:12 +00:00

17 lines
300 B
Idris

-- Idris2
import System
import System.Concurrency
||| Test double-release errors correctly
main : IO ()
main =
do m <- makeMutex
mutexAcquire m
putStrLn "Mutex acquired"
mutexRelease m
putStrLn "1st release"
mutexRelease m
putStrLn "2nd release (SHOULDN'T HAPPEN)"