Documentation

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)

src/Quasar/Awaitable.hs

 module Quasar.Awaitable (
   -- * Awaitable
+  MonadAwait(..),
   IsAwaitable(..),
   Awaitable,
-  MonadAwait(..),
   awaitResult,
   peekAwaitable,
   successfulAwaitable,

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,