1
1
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-30 00:52:37 +03:00

Fix a broken test

This commit is contained in:
Michael Walker 2015-01-23 15:11:56 +00:00
parent ea90e9fe5d
commit d5afca652c

View File

@ -73,7 +73,7 @@ thresholdValue = do
fork $ lock l >> modifyCVar_ x (return . (+1)) >> unlock l
fork $ lock l >> modifyCVar_ x (return . (+2)) >> unlock l
res <- spawn $ lock l >> readCVar x >>= \x' -> unlock l >> return (x' > 3)
res <- spawn $ lock l >> readCVar x >>= \x' -> unlock l >> return (x' >= 3)
takeCVar res