Skip to content

Commit 8cd780b

Browse files
authored
Merge pull request #77 from slamdata/ap-paraff
Fix applicative instance for ParAff
2 parents 96e0140 + a3c4d15 commit 8cd780b

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/Control/Monad/Aff.purs

+2-1
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,8 @@ instance applyParAff :: Apply (ParAff e) where
236236
putOrKill :: forall a. AVar a -> Either Error a -> Aff e Unit
237237
putOrKill v = either (killVar v) (putVar v)
238238

239-
derive newtype instance applicativeParAff :: Applicative (ParAff e)
239+
instance applicativeParAff :: Applicative (ParAff e) where
240+
pure = ParAff <<< pure
240241

241242
-- | Returns the first value, or the first error if both error.
242243
instance altParAff :: Alt (ParAff e) where

0 commit comments

Comments
 (0)