On Jul 13, 2007, at 16:59 , Thomas Conway wrote:

                           case re of
                               False -> writeTVar m Nothing
                               True  -> writeTVar p Empty

> uncurry writeTVar $
>   if re then (p,Empty) else (m,Nothing)

       case v of
           Nothing -> return True
           Just _  -> return False

> return (isJust v)

--
brandon s. allbery [solaris,freebsd,perl,pugs,haskell] [EMAIL PROTECTED]
system administrator [openafs,heimdal,too many hats] [EMAIL PROTECTED]
electrical and computer engineering, carnegie mellon university    KF8NH


_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to