unix-2.7.3: tests/Semaphore001.hs

module Main (main) where

import System.Posix

main :: IO ()
main = do
  sem <- semOpen "/test" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 1
  semThreadWait sem
  semPost sem