eventuo11y-batteries 0.3.0.2 → 0.3.0.3
raw patch · 3 files changed
+6/−6 lines, 3 filesdep ~eventuo11ydep ~eventuo11y-jsonPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: eventuo11y, eventuo11y-json
API changes (from Hackage documentation)
- Observe.Event.Servant.Client: instance (Control.Monad.IO.Class.MonadIO (em r s), Observe.Event.MonadWithEvent em r s) => Servant.Client.Core.RunClient.RunClient (Observe.Event.Servant.Client.ClientM em r s)
+ Observe.Event.Servant.Client: instance (Control.Monad.IO.Class.MonadIO (em r s), Observe.Event.MonadWithEvent em) => Servant.Client.Core.RunClient.RunClient (Observe.Event.Servant.Client.ClientM em r s)
- Observe.Event.Wai: application :: (MonadUnliftIO (em r s), MonadWithEvent em r s) => InjectSelector ServeRequest s -> Application em r s -> em r s Application
+ Observe.Event.Wai: application :: (MonadUnliftIO (em r s), MonadWithEvent em) => InjectSelector ServeRequest s -> Application em r s -> em r s Application
- Observe.Event.Wai: onExceptionCallback :: (MonadUnliftIO (em r s), MonadWithEvent em r s) => InjectSelector OnException s -> OnExceptionCallback em r s -> em r s (Maybe Request -> SomeException -> IO ())
+ Observe.Event.Wai: onExceptionCallback :: (MonadUnliftIO (em r s), MonadWithEvent em) => InjectSelector OnException s -> OnExceptionCallback em r s -> em r s (Maybe Request -> SomeException -> IO ())
Files
- eventuo11y-batteries.cabal +3/−3
- src/Observe/Event/Servant/Client.hs +1/−1
- src/Observe/Event/Wai.hs +2/−2
eventuo11y-batteries.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: eventuo11y-batteries-version: 0.3.0.2+version: 0.3.0.3 synopsis: Grab bag of eventuo11y-enriched functionality description: Miscellaneous helpers for instrumenting with [eventuo11y](https://hackage.haskell.org/package/eventuo11y) and 3rd-party packages.@@ -31,8 +31,8 @@ , bytestring ^>= { 0.10, 0.11 } , case-insensitive ^>= 1.2 , containers ^>= 0.6- , eventuo11y ^>= { 0.6, 0.7, 0.8 }- , eventuo11y-json ^>= { 0.2, 0.3 }+ , eventuo11y ^>= { 0.9 }+ , eventuo11y-json ^>= { 0.3 } , general-allocate ^>= { 0.2 } , http-media ^>= 0.8 , http-types ^>= 0.12
src/Observe/Event/Servant/Client.hs view
@@ -71,7 +71,7 @@ injectRunRequest :: !(InjectSelector RunRequest s) } -instance (MonadIO (em r s), MonadWithEvent em r s) => RunClient (ClientM em r s) where+instance (MonadIO (em r s), MonadWithEvent em) => RunClient (ClientM em r s) where runRequestAcceptStatus stats req = do e <- ask injectRunRequest e RunRequest \runReq injField -> withEvent runReq \ev -> do
src/Observe/Event/Wai.hs view
@@ -61,7 +61,7 @@ -- | Run an 'Application' with generic 'Request'/'Response' instrumentation. application ::- (MonadUnliftIO (em r s), MonadWithEvent em r s) =>+ (MonadUnliftIO (em r s), MonadWithEvent em) => InjectSelector ServeRequest s -> Application em r s -> em r s W.Application@@ -106,7 +106,7 @@ -- use 'vault', but there doesn't seem to be a way to get at the 'Request' that Warp will pass -- here. onExceptionCallback ::- (MonadUnliftIO (em r s), MonadWithEvent em r s) =>+ (MonadUnliftIO (em r s), MonadWithEvent em) => InjectSelector OnException s -> OnExceptionCallback em r s -> em r s (Maybe Request -> SomeException -> IO ())