A-M baby

Task/Mutex/Haskell/mutex-1.hs

@@ -0,0 +1,4 @@
+takeMVar :: MVar a -> IO a
+putMVar :: MVar a -> a -> IO ()
+tryTakeMVar :: MVar a -> IO (Maybe a)
+tryPutMVar :: MVar a -> a -> IO Bool

Task/Mutex/Haskell/mutex-2.hs

@@ -0,0 +1,7 @@
+   x: = mutex()  # create and return a mutex handle for sharing between threads needing to synchronize with each other
+
+   lock(x)       # lock mutex x
+
+   trylock(x))   # non-blocking lock, succeeds only if there are no other thread already in the critical region
+
+   unlock(x)     # unlock mutex x