diff --git a/src/Quasar/Awaitable.hs b/src/Quasar/Awaitable.hs index fd695fa2ef027a00a4ec1f088a313ebf51f99819..5a16f0a90b8d74fc18f1ddd63ce927460718d8dd 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