Move CombinedException to utils

quasar.cabal

@@ -94,6 +94,7 @@ library
     Quasar.Subscribable
     Quasar.Timer
     Quasar.Utils.Concurrent
+    Quasar.Utils.Exceptions
     Quasar.Utils.ExtraT
   hs-source-dirs:
     src

src/Quasar/ResourceManager.hs

@@ -21,8 +21,6 @@ module Quasar.ResourceManager (
   attachDisposeAction_,
 
   -- ** Initialization
-  CombinedException,
-  combinedExceptions,
   withRootResourceManager,
 
   -- ** Linking computations to a resource manager
@@ -32,6 +30,10 @@ module Quasar.ResourceManager (
   -- ** Resource manager implementations
   newUnmanagedRootResourceManager,
   --newUnmanagedDefaultResourceManager,
+
+  -- * Reexports
+  CombinedException,
+  combinedExceptions,
 ) where
 
 
@@ -47,6 +49,7 @@ import Quasar.Awaitable
 import Quasar.Disposable
 import Quasar.Prelude
 import Quasar.Utils.Concurrent
+import Quasar.Utils.Exceptions
 
 
 data FailedToRegisterResource = FailedToRegisterResource
@@ -234,19 +237,6 @@ linkExecution action = do
 
 -- ** Root resource manager
 
-newtype CombinedException = CombinedException (NonEmpty SomeException)
-  deriving stock Show
-
-instance Exception CombinedException where
-  displayException (CombinedException exceptions) = intercalate "\n" (header : exceptionMessages)
-    where
-      header = mconcat ["CombinedException with ", show (length exceptions), "exceptions:"]
-      exceptionMessages = (displayException <$> toList exceptions)
-
-combinedExceptions :: CombinedException -> [SomeException]
-combinedExceptions (CombinedException exceptions) = toList exceptions
-
-
 data RootResourceManager
   = RootResourceManager ResourceManager (TVar Bool) (TVar (Maybe (Seq SomeException))) (Awaitable ())
 

src/Quasar/Utils/Exceptions.hs

+module Quasar.Utils.Exceptions (
+  CombinedException(..),
+  combinedExceptions,
+) where
+
+import Control.Exception
+import Data.Foldable (toList)
+import Data.List.NonEmpty (NonEmpty, nonEmpty)
+import Quasar.Prelude
+
+newtype CombinedException = CombinedException (NonEmpty SomeException)
+  deriving stock Show
+
+instance Exception CombinedException where
+  displayException (CombinedException exceptions) = intercalate "\n" (header : exceptionMessages)
+    where
+      header = mconcat ["CombinedException with ", show (length exceptions), "exceptions:"]
+      exceptionMessages = (displayException <$> toList exceptions)
+
+combinedExceptions :: CombinedException -> [SomeException]
+combinedExceptions (CombinedException exceptions) = toList exceptions