Add registerAsyncDisposeAction

Co-authored-by: Jan Beinke <git@janbeinke.com>

src/Quasar/ResourceManager.hs

@@ -8,6 +8,7 @@ module Quasar.ResourceManager (
   registerNewResource_,
   registerDisposable,
   registerDisposeAction,
+  registerAsyncDisposeAction,
   withScopedResourceManager,
   onResourceManager,
   captureDisposable,
@@ -133,6 +134,9 @@ registerDisposable disposable = do
 registerDisposeAction :: MonadResourceManager m => IO () -> m ()
 registerDisposeAction disposeAction = mask_ $ registerDisposable =<< newDisposable disposeAction
 
+registerAsyncDisposeAction :: MonadResourceManager m => IO () -> m ()
+registerAsyncDisposeAction disposeAction = mask_ $ registerDisposable =<< newAsyncDisposable disposeAction
+
 -- | Locks the resource manager (which may fail), runs the computation and registeres the resulting disposable.
 --
 -- The computation will be run in masked state.