We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 482dada + f862907 commit b472f7fCopy full SHA for b472f7f
src/Control/Monad/Aff/Par.purs
@@ -46,8 +46,8 @@ instance applicativePar :: Applicative (Par e) where
46
-- | Returns the first value, or the first error if both error.
47
instance altPar :: Alt (Par e) where
48
alt (Par a1) (Par a2) =
49
- let maybeKill va ve err =
50
- do e <- takeVar ve
+ let maybeKill va ve err = do
+ e <- takeVar ve
51
if e == 1 then killVar va err else return unit
52
putVar ve (e + 1)
53
in Par do
0 commit comments