diff --git a/eventuo11y-batteries.cabal b/eventuo11y-batteries.cabal
--- a/eventuo11y-batteries.cabal
+++ b/eventuo11y-batteries.cabal
@@ -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
diff --git a/src/Observe/Event/Servant/Client.hs b/src/Observe/Event/Servant/Client.hs
--- a/src/Observe/Event/Servant/Client.hs
+++ b/src/Observe/Event/Servant/Client.hs
@@ -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
diff --git a/src/Observe/Event/Wai.hs b/src/Observe/Event/Wai.hs
--- a/src/Observe/Event/Wai.hs
+++ b/src/Observe/Event/Wai.hs
@@ -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 ())