From 3cf499eed3c0a884f486fc69403f5c582d155cb4 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 25 Aug 2021 00:26:57 +0200
Subject: [PATCH] Add awaitAny2
---
src/Quasar/Awaitable.hs | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/Quasar/Awaitable.hs b/src/Quasar/Awaitable.hs
index a004e80..1094b67 100644
--- a/src/Quasar/Awaitable.hs
+++ b/src/Quasar/Awaitable.hs
@@ -14,6 +14,7 @@ module Quasar.Awaitable (
-- * Awaiting multiple awaitables
awaitEither,
awaitAny,
+ awaitAny2,
-- * AsyncVar
AsyncVar,
@@ -271,6 +272,10 @@ awaitAny xs = toAwaitable $ FnAwaitable $ stepAll Empty Empty $ runAwaitable <$>
stepAll Empty Empty newAwaitableSteps
+awaitAny2 :: IsAwaitable r a => a -> a -> Awaitable r
+awaitAny2 x y = awaitAny (x :| [y])
+
+
groupLefts :: Either (Either ex a) (Either ex b) -> Either ex (Either a b)
groupLefts (Left x) = Left <$> x
groupLefts (Right y) = Right <$> y
--
GitLab