freckle-app 1.6.0.0 → 1.6.0.1
raw patch · 4 files changed
+19/−5 lines, 4 files
Files
- CHANGELOG.md +6/−1
- freckle-app.cabal +1/−1
- library/Freckle/App/Bugsnag.hs +11/−2
- package.yaml +1/−1
CHANGELOG.md view
@@ -1,4 +1,9 @@-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.6.0.0...main)+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.6.0.1...main)++## [v1.6.0.1](https://github.com/freckle/freckle-app/compare/v1.6.0.0...v1.6.0.1)++- The built-in Bugsnag `BeforeNotify` will further group `SqlError`s that are+ timeouts (57014) by Request URL (when request info is present in the `Event`) ## [v1.6.0.0](https://github.com/freckle/freckle-app/compare/v1.5.0.1...v1.6.0.0)
freckle-app.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.18 name: freckle-app-version: 1.6.0.0+version: 1.6.0.1 license: MIT license-file: LICENSE maintainer: Freckle Education
library/Freckle/App/Bugsnag.hs view
@@ -90,9 +90,11 @@ void $ liftIO $ forkIO $ Bugsnag.notifyBugsnagWith f settings ex asSqlError :: SqlError -> BeforeNotify-asSqlError err@SqlError {..} = toSqlGrouping <> toSqlException+asSqlError err@SqlError {..} =+ setGroupingHashBy (groupTimeoutByRequestUrl err)+ <> setGroupingHashBy (const $ sqlErrorGroupingHash err)+ <> toSqlException where- toSqlGrouping = maybe mempty setGroupingHash (sqlErrorGroupingHash err) toSqlException = updateExceptions $ \ex -> ex { exception_errorClass = decodeUtf8 $ "SqlError-" <> sqlState , exception_message =@@ -105,6 +107,13 @@ <> sqlErrorHint <> ")" }++groupTimeoutByRequestUrl :: SqlError -> Event -> Maybe Text+groupTimeoutByRequestUrl SqlError {..} event = do+ guard $ sqlState == "57014"+ req <- event_request event+ url <- request_url req+ pure $ "SQL-Timeout-In-" <> url sqlErrorGroupingHash :: SqlError -> Maybe Text sqlErrorGroupingHash err = do
package.yaml view
@@ -1,6 +1,6 @@ --- name: freckle-app-version: 1.6.0.0+version: 1.6.0.1 maintainer: Freckle Education category: Utils github: freckle/freckle-app