Skip to content
Snippets Groups Projects
Commit f01d1fd9 authored by Jens Nolte's avatar Jens Nolte
Browse files

Remove outdated TODOs

parent 80b9c54e
No related branches found
No related tags found
No related merge requests found
Pipeline #2535 passed
...@@ -54,14 +54,6 @@ import Quasar.Prelude ...@@ -54,14 +54,6 @@ import Quasar.Prelude
import Quasar.Utils.Exceptions import Quasar.Utils.Exceptions
-- TODO replacement for MonadAsync scheduler
--scheduleAfter :: MonadScheduler m => Awaitable a -> (a -> SchedulerIO (Awaitable b)) -> m (Awaitable b)
--scheduleAfter' :: Awaitable a -> (a -> SchedulerIO b) -> m (Awaitable b)
--scheduleAfter_ :: Awaitable a -> (a -> IO ()) -> m ()
data DisposeException = DisposeException SomeException data DisposeException = DisposeException SomeException
deriving stock Show deriving stock Show
...@@ -190,7 +182,6 @@ liftResourceManagerIO action = do ...@@ -190,7 +182,6 @@ liftResourceManagerIO action = do
captureDisposable :: MonadResourceManager m => m a -> m (a, Disposable) captureDisposable :: MonadResourceManager m => m a -> m (a, Disposable)
captureDisposable action = do captureDisposable action = do
-- TODO improve performance by only creating a new resource manager when two or more disposables are attached
resourceManager <- newResourceManager resourceManager <- newResourceManager
result <- localResourceManager resourceManager action result <- localResourceManager resourceManager action
pure $ (result, toDisposable resourceManager) pure $ (result, toDisposable resourceManager)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment