fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-09-22 14:14:25 +02:00
parent 2ca024b935
commit 513249b9eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils/Sql.hs
View File

@ -32,7 +32,7 @@ import Control.Concurrent.Async (ExceptionInLinkedThread(..))
fromExceptionWrapped :: Exception exc => SomeException -> Maybe exc fromExceptionWrapped :: Exception exc => SomeException -> Maybe exc
fromExceptionWrapped (fromException -> Just exc) = Just 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 fromExceptionWrapped _ = Nothing