Reorder definitions in Disposer module

src/Quasar/Resources/Disposer.hs

@@ -44,6 +44,16 @@ class Resource a where
   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 ())
 
 data DisposerElement
@@ -60,15 +70,6 @@ instance Resource DisposerElement where
   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 ())