diff --git a/src/Utils/Sql.hs b/src/Utils/Sql.hs
index 19d9eda9f..b88932062 100644
--- a/src/Utils/Sql.hs
+++ b/src/Utils/Sql.hs
@@ -32,7 +32,7 @@ import Control.Concurrent.Async (ExceptionInLinkedThread(..))
 
 fromExceptionWrapped :: Exception exc => SomeException -> Maybe exc
 fromExceptionWrapped (fromException -> Just exc) = Just exc
-fromExceptionWrapped ((fromException >=> \(ExceptionInLinkedThread _ exc') -> fromExceptionWrapped exc') -> Just exc) = Just exc
+fromExceptionWrapped (fromException >=> \(ExceptionInLinkedThread _ exc') -> fromExceptionWrapped exc' -> Just exc) = Just exc
 fromExceptionWrapped _ = Nothing