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

Reorder definitions in Disposer module

parent 150081ea
No related branches found
No related tags found
No related merge requests found
Pipeline #2872 passed
...@@ -44,6 +44,16 @@ class Resource a where ...@@ -44,6 +44,16 @@ class Resource a where
isDisposing r = isDisposing (toDisposer r) isDisposing r = isDisposing (toDisposer r)
newtype Disposer = Disposer [DisposerElement]
deriving newtype (Semigroup, Monoid)
instance Resource Disposer where
toDisposer = id
isDisposed (Disposer ds) = foldMap isDisposed ds
isDisposing (Disposer ds) = awaitAny $ isDisposing <$> ds
type DisposerState = TOnce DisposeFn (Future ()) type DisposerState = TOnce DisposeFn (Future ())
data DisposerElement data DisposerElement
...@@ -60,15 +70,6 @@ instance Resource DisposerElement where ...@@ -60,15 +70,6 @@ instance Resource DisposerElement where
isDisposing (ResourceManagerDisposer resourceManager) = resourceManagerIsDisposing resourceManager isDisposing (ResourceManagerDisposer resourceManager) = resourceManagerIsDisposing resourceManager
newtype Disposer = Disposer [DisposerElement]
deriving newtype (Semigroup, Monoid)
instance Resource Disposer where
toDisposer = id
isDisposed (Disposer ds) = foldMap isDisposed ds
isDisposing (Disposer ds) = awaitAny $ isDisposing <$> ds
type DisposeFn = ShortIO (Future ()) type DisposeFn = ShortIO (Future ())
......
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