diff --git a/src/Quasar/Utils/Exceptions.hs b/src/Quasar/Utils/Exceptions.hs index 2bede2da24f349df4f92b1de59b2e8eb33dfe93e..26747030a6a8cb636a9d601a43869e0a4638e463 100644 --- a/src/Quasar/Utils/Exceptions.hs +++ b/src/Quasar/Utils/Exceptions.hs @@ -15,7 +15,7 @@ instance Exception CombinedException where displayException (CombinedException exceptions) = intercalate "\n" (header : exceptionMessages) where header = mconcat ["CombinedException with ", show (length exceptions), "exceptions:"] - exceptionMessages = (displayException <$> toList exceptions) + exceptionMessages = displayException <$> toList exceptions combinedExceptions :: CombinedException -> [SomeException] combinedExceptions (CombinedException exceptions) = toList exceptions