bugsnag 1.1.0.2 → 1.2.0.0

raw patch · 2 files changed

+6/−10 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• bugsnag.cabal +1/−1
• src/Network/Bugsnag/BeforeNotify.hs +5/−9

@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               bugsnag-version:            1.1.0.2+version:            1.2.0.0 license:            MIT license-file:       LICENSE maintainer:         pbrisbin@gmail.com

@@ -28,6 +28,7 @@  import Prelude +import Control.Exception (SomeException) import qualified Control.Exception as Exception import qualified Control.Exception.Annotated as Annotated import Data.Bugsnag@@ -46,7 +47,7 @@ -- nothing/ 'BeforeNotify' is 'mempty' and two 'BeforeNotify's @doThis@ then -- @doThat@ can be implemented as @doThat <> doThis@. newtype BeforeNotify = BeforeNotify-  { _unBeforeNotify :: forall e. Exception.Exception e => e -> Event -> Event+  { _unBeforeNotify :: SomeException -> Event -> Event   }  instance Semigroup BeforeNotify where@@ -55,13 +56,11 @@ instance Monoid BeforeNotify where   mempty = BeforeNotify $ const id -beforeNotify-  :: (forall e. Exception.Exception e => e -> Event -> Event)-  -> BeforeNotify+beforeNotify :: (SomeException -> Event -> Event) -> BeforeNotify beforeNotify = BeforeNotify  runBeforeNotify :: Exception.Exception e => BeforeNotify -> e -> Event -> Event-runBeforeNotify (BeforeNotify f) = f+runBeforeNotify (BeforeNotify f) = f . Exception.toException  updateExceptions :: (Exception -> Exception) -> BeforeNotify updateExceptions f = updateEvent $@@ -127,10 +126,7 @@ updateEventFromOriginalException   :: forall e. Exception.Exception e => (e -> BeforeNotify) -> BeforeNotify updateEventFromOriginalException f = beforeNotify $ \e event ->-  let bn =-        maybe mempty (f . Annotated.exception) $-          Exception.fromException $-            Exception.toException e+  let bn = maybe mempty (f . Annotated.exception) $ Exception.fromException e   in  runBeforeNotify bn e event  setGroupingHash :: Text -> BeforeNotify