13 Jul
2007
13 Jul
'07
6:56 p.m.
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] allbery@kf8nh.com system administrator [openafs,heimdal,too many hats] allbery@ece.cmu.edu electrical and computer engineering, carnegie mellon university KF8NH