diff --git a/src/Quasar/Async.hs b/src/Quasar/Async.hs index 3aa9c21557b7e2b3d9faec15f9d29e8759155638..457828b288883cdef43f98525e226b6cc503afec 100644 --- a/src/Quasar/Async.hs +++ b/src/Quasar/Async.hs @@ -26,11 +26,10 @@ import Quasar.Prelude class (MonadAwait m, MonadResourceManager m, MonadMask m) => MonadAsync m where - -- | TODO async :: m r -> m (Task r) async action = asyncWithUnmask ($ action) - -- | TODO + -- | TODO: Documentation -- -- The action will be run with asynchronous exceptions masked and will be passed an action that can be used unmask. asyncWithUnmask :: ((forall a. m a -> m a) -> m r) -> m (Task r) diff --git a/src/Quasar/Awaitable.hs b/src/Quasar/Awaitable.hs index 930fd6f07d78320358d5ff24d6b14e3f410e13c9..b63d55e5b05ead6af70c61623d4b9cc41d89e52f 100644 --- a/src/Quasar/Awaitable.hs +++ b/src/Quasar/Awaitable.hs @@ -1,8 +1,8 @@ module Quasar.Awaitable ( -- * Awaitable + MonadAwait(..), IsAwaitable(..), Awaitable, - MonadAwait(..), awaitResult, peekAwaitable, successfulAwaitable, diff --git a/src/Quasar/Timer.hs b/src/Quasar/Timer.hs index 6ffb81cf6941e032fb02d4b7040a59a5cf6b27d2..9f6cebf7c60e6951058222b150ad132733ee09a5 100644 --- a/src/Quasar/Timer.hs +++ b/src/Quasar/Timer.hs @@ -9,7 +9,6 @@ module Quasar.Timer ( newTimerScheduler, TimerCancelled, - NegativeTimeJump, Delay, newDelay, @@ -33,13 +32,6 @@ data TimerCancelled = TimerCancelled instance Exception TimerCancelled -data NegativeTimeJump = NegativeTimeJump - deriving stock (Eq, Show) - -instance Exception NegativeTimeJump - - - data Timer = Timer { key :: Unique, time :: UTCTime,