This commit is contained in:
spaced4ndy
2025-07-25 13:24:08 +04:00
parent a678758de8
commit 3d2bf6ce43

View File

@@ -70,7 +70,7 @@ withLoggedErrors q action =
`E.catch`
(\(e :: E.SomeException) ->
case E.fromException e :: Maybe SqlError of
Just sqlErr -> E.throwIO sqlErr -- rethrow SqlError without logging
Just sqlErr -> E.throwIO sqlErr -- rethrow SqlError without logging
Nothing -> logGenericErrorAndRethrow e
)
where