summaryrefslogtreecommitdiff
path: root/src/Control/Arrow/Async.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Control/Arrow/Async.hs')
-rw-r--r--src/Control/Arrow/Async.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Control/Arrow/Async.hs b/src/Control/Arrow/Async.hs
index 360668b..4a27473 100644
--- a/src/Control/Arrow/Async.hs
+++ b/src/Control/Arrow/Async.hs
@@ -40,8 +40,7 @@ instance MonadBaseControl IO m => ArrowChoice (AsyncA m) where
instance (Exception ex, MonadBaseControl IO m, MonadCatch m)
=> ArrowError ex (AsyncA m) where
- AsyncA arr1 `catch` AsyncA arr2 = AsyncA $ \x ->
- arr1 x `Control.Exception.Safe.catch` curry arr2 x
+ try (AsyncA a) = AsyncA $ Control.Exception.Safe.try . a
-- | Lift an AsyncA through a monad transformer of the underlying monad.
liftAsyncA :: (MonadTrans t, Monad m)