From 513249b9eb3168b3d0639ce0bc7617e40916fc9b Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 22 Sep 2020 14:14:25 +0200 Subject: [PATCH] refactor: hlint --- src/Utils/Sql.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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