bugsnag-haskell 0.0.1.1 → 0.0.1.2

raw patch · 5 files changed

+13/−14 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Network.Bugsnag.App: BugsnagApp :: Maybe Text -> Maybe Version -> Maybe Text -> Maybe BugsnagReleaseStage -> Maybe Text -> Maybe [Text] -> Maybe Natural -> Maybe Natural -> Maybe Bool -> BugsnagApp

+ Network.Bugsnag.App: BugsnagApp :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe BugsnagReleaseStage -> Maybe Text -> Maybe [Text] -> Maybe Natural -> Maybe Natural -> Maybe Bool -> BugsnagApp

- Network.Bugsnag.App: [baVersion] :: BugsnagApp -> Maybe Version

+ Network.Bugsnag.App: [baVersion] :: BugsnagApp -> Maybe Text

- Network.Bugsnag.Settings: BugsnagSettings :: BugsnagApiKey -> Maybe Version -> BugsnagReleaseStage -> [BugsnagReleaseStage] -> BeforeNotify -> (BugsnagException -> Bool) -> (BugsnagEvent -> Maybe Text) -> (FilePath -> Bool) -> (BugsnagStackFrame -> Bool) -> Manager -> BugsnagSettings

+ Network.Bugsnag.Settings: BugsnagSettings :: BugsnagApiKey -> Maybe Text -> BugsnagReleaseStage -> [BugsnagReleaseStage] -> BeforeNotify -> (BugsnagException -> Bool) -> (BugsnagEvent -> Maybe Text) -> (FilePath -> Bool) -> (BugsnagStackFrame -> Bool) -> Manager -> BugsnagSettings

- Network.Bugsnag.Settings: [bsAppVersion] :: BugsnagSettings -> Maybe Version

+ Network.Bugsnag.Settings: [bsAppVersion] :: BugsnagSettings -> Maybe Text

Files

bugsnag-haskell.cabal +3/−3
src/Network/Bugsnag/App.hs +1/−2
src/Network/Bugsnag/BeforeNotify.hs +7/−5
src/Network/Bugsnag/Settings.hs +1/−2
test/Network/Bugsnag/ReportSpec.hs +1/−2

bugsnag-haskell.cabal view

@@ -1,11 +1,11 @@--- This file has been generated from package.yaml by hpack version 0.20.0.+-- This file has been generated from package.yaml by hpack version 0.28.2. -- -- see: https://github.com/sol/hpack ----- hash: e315036e7d637c61b6993527c7d4251917c1a8ddb83239e62d20b29a5f999108+-- hash: 7bf291abde6fe3bc6aa43132c387532dae5ab319f44295932acaefa836a13869  name:           bugsnag-haskell-version:        0.0.1.1+version:        0.0.1.2 synopsis:       Bugsnag error reporter for Haskell description:    Please see README.md category:       Web

src/Network/Bugsnag/App.hs view

@@ -7,14 +7,13 @@ import Data.Aeson import Data.Aeson.Ext import Data.Text (Text)-import Data.Version import GHC.Generics import Network.Bugsnag.ReleaseStage import Numeric.Natural  data BugsnagApp = BugsnagApp     { baId :: Maybe Text-    , baVersion :: Maybe Version+    , baVersion :: Maybe Text     , baBuildUUID :: Maybe Text     , baReleaseStage :: Maybe BugsnagReleaseStage     , baType :: Maybe Text

src/Network/Bugsnag/BeforeNotify.hs view

@@ -41,11 +41,13 @@ -- > notifyBugsnagWith (updateException forSqlError) settings ex -- > -- > forSqlError :: BugsnagException -> BugsnagException--- > forSqlError ex = case fromException @SqlError ex of--- >     Just SqlError{..} -> ex--- >         { beErrorClass = "SqlError-" <> sqlErrorCode--- >         , beMessage = sqlErrorMessage--- >         }+-- > forSqlError ex =+-- >     case fromException =<< beOriginalException ex of+-- >         Just SqlError{..} -> ex+-- >             { beErrorClass = "SqlError-" <> sqlErrorCode+-- >             , beMessage = Just sqlErrorMessage+-- >             }+-- >         _ -> ex -- updateException :: (BugsnagException -> BugsnagException) -> BeforeNotify updateException f event = event

src/Network/Bugsnag/Settings.hs view

@@ -15,7 +15,6 @@ import Data.String import Data.Text (Text) import qualified Data.Text as T-import Data.Version import Network.Bugsnag.BeforeNotify import Network.Bugsnag.Event import Network.Bugsnag.Exception@@ -39,7 +38,7 @@ data BugsnagSettings = BugsnagSettings     { bsApiKey :: BugsnagApiKey     -- ^ Your Integration API Key.-    , bsAppVersion :: Maybe Version+    , bsAppVersion :: Maybe Text     -- ^ The version of your application     --     -- Marking bugs as Fixed and having them auto-reopen in new versions

test/Network/Bugsnag/ReportSpec.hs view

@@ -10,7 +10,6 @@ import Data.Aeson.QQ (aesonQQ) import Data.Text (Text) import Data.Time (getCurrentTime)-import Data.Version (makeVersion) import Network.Bugsnag  spec :: Spec@@ -102,7 +101,7 @@                                     }                                 , beApp = Just bugsnagApp                                     { baId = Just "1"-                                    , baVersion = Just $ makeVersion [1, 0, 0]+                                    , baVersion = Just "1.0.0"                                     }                                 , beDevice = Nothing                                 , beMetaData = Just $ object