From 49021fd497391c9b259af4ba7acb53ca667757ad Mon Sep 17 00:00:00 2001 From: Jens Nolte <git@queezle.net> Date: Wed, 25 Aug 2021 03:13:06 +0200 Subject: [PATCH] Reorder Awaitable export list --- src/Quasar/Awaitable.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Quasar/Awaitable.hs b/src/Quasar/Awaitable.hs index fd695fa..5a16f0a 100644 --- a/src/Quasar/Awaitable.hs +++ b/src/Quasar/Awaitable.hs @@ -1,11 +1,10 @@ module Quasar.Awaitable ( -- * Awaitable IsAwaitable(..), - MonadQuerySTM(querySTM), + Awaitable, awaitIO, tryAwaitIO, peekAwaitable, - Awaitable, successfulAwaitable, failedAwaitable, completedAwaitable, @@ -31,6 +30,7 @@ module Quasar.Awaitable ( putAsyncVarEitherSTM_, -- * Implementation helpers + MonadQuerySTM(querySTM), cacheAwaitableDefaultImplementation, ) where @@ -114,6 +114,7 @@ instance Alternative Awaitable where instance MonadPlus Awaitable + newtype FnAwaitable r = FnAwaitable (forall m. (MonadQuerySTM m) => m (Either SomeException r)) instance IsAwaitable r (FnAwaitable r) where -- GitLab