mirror of
https://github.com/facebook/Haxl.git
synced 2024-12-24 17:23:03 +03:00
fix typos in tests/BatchTests.hs
Summary: Closes https://github.com/facebook/Haxl/pull/71 Differential Revision: D5494735 Pulled By: watashi fbshipit-source-id: d7da88a66bd3f344db9daa6c6814382ef2584568
This commit is contained in:
parent
f1df1cb368
commit
f5bf102f40
@ -188,7 +188,7 @@ pOrTests = do
|
||||
return (not a && b && c && d)
|
||||
assertBool "pOr0" r
|
||||
|
||||
-- pOr is left-biased with respsect to exceptions:
|
||||
-- pOr is left-biased with respect to exceptions:
|
||||
r <- runHaxl env $ try $ return True `pOr` throw (NotFound "foo")
|
||||
assertBool "pOr1" $
|
||||
case (r :: Either NotFound Bool) of
|
||||
@ -236,7 +236,7 @@ pAndTests = do
|
||||
return (not a && not b && not c && d)
|
||||
assertBool "pAnd0" r
|
||||
|
||||
-- pAnd is left-biased with respsect to exceptions:
|
||||
-- pAnd is left-biased with respect to exceptions:
|
||||
r <- runHaxl env $ try $ return False `pAnd` throw (NotFound "foo")
|
||||
assertBool "pAnd1" $
|
||||
case (r :: Either NotFound Bool) of
|
||||
|
Loading…
Reference in New Issue
Block a user