diff --git a/src/Quasar/Disposable.hs b/src/Quasar/Disposable.hs index 145ba9cae8310af264b0de269929f7c5950dcfef..0abab6899c04442628673daf3c9c3f2d6028bfa7 100644 --- a/src/Quasar/Disposable.hs +++ b/src/Quasar/Disposable.hs @@ -55,7 +55,6 @@ class IsDisposable a where {-# MINIMAL toDisposable | (dispose, isDisposed) #-} --- | Dispose a resource in the IO monad. disposeAndAwait :: (MonadAwait m, MonadIO m) => IsDisposable a => a -> m () disposeAndAwait disposable = await =<< liftIO (dispose disposable)