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

Remove unnecessary bracket

parent a2adc211
No related branches found
No related tags found
No related merge requests found
...@@ -15,7 +15,7 @@ instance Exception CombinedException where ...@@ -15,7 +15,7 @@ instance Exception CombinedException where
displayException (CombinedException exceptions) = intercalate "\n" (header : exceptionMessages) displayException (CombinedException exceptions) = intercalate "\n" (header : exceptionMessages)
where where
header = mconcat ["CombinedException with ", show (length exceptions), "exceptions:"] header = mconcat ["CombinedException with ", show (length exceptions), "exceptions:"]
exceptionMessages = (displayException <$> toList exceptions) exceptionMessages = displayException <$> toList exceptions
combinedExceptions :: CombinedException -> [SomeException] combinedExceptions :: CombinedException -> [SomeException]
combinedExceptions (CombinedException exceptions) = toList exceptions combinedExceptions (CombinedException exceptions) = toList exceptions
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