diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for lifted-async
 
+## v0.10.2.4 - 2022-03-19
+
+* Support mtl-2.3.1, allow base-4.18 (GHC 9.6) ([#41](https://github.com/maoe/lifted-async/pull/41))
+
 ## v0.10.2.3 - 2022-08-13
 
 * Allow base-4.17 (GHC 9.4) and bump CI to latest GHC versions ([#39](https://github.com/maoe/lifted-async/pull/39))
diff --git a/lifted-async.cabal b/lifted-async.cabal
--- a/lifted-async.cabal
+++ b/lifted-async.cabal
@@ -1,6 +1,6 @@
 cabal-version:       1.24
 name:                lifted-async
-version:             0.10.2.3
+version:             0.10.2.4
 synopsis:            Run lifted IO operations asynchronously and wait for their results
 homepage:            https://github.com/maoe/lifted-async
 bug-reports:         https://github.com/maoe/lifted-async/issues
@@ -8,12 +8,13 @@
 license-file:        LICENSE
 author:              Mitsutoshi Aoe
 maintainer:          Mitsutoshi Aoe <me@maoe.name>
-copyright:           Copyright (C) 2012-2022 Mitsutoshi Aoe
+copyright:           Copyright (C) 2012-2023 Mitsutoshi Aoe
 category:            Concurrency
 build-type:          Simple
 tested-with:
-  GHC == 9.4.1
-  GHC == 9.2.4
+  GHC == 9.6.1
+  GHC == 9.4.4
+  GHC == 9.2.7
   GHC == 9.0.2
   GHC == 8.10.7
   GHC == 8.8.4
@@ -36,7 +37,7 @@
     Control.Concurrent.Async.Lifted
     Control.Concurrent.Async.Lifted.Safe
   build-depends:
-      base >= 4.5 && < 4.18
+      base >= 4.5 && < 4.19
     , async >= 2.2 && < 2.3
     , lifted-base >= 0.2 && < 0.3
     , transformers-base >= 0.4 && < 0.5
diff --git a/tests/Test/Async/Reader.hs b/tests/Test/Async/Reader.hs
--- a/tests/Test/Async/Reader.hs
+++ b/tests/Test/Async/Reader.hs
@@ -3,7 +3,8 @@
 module Test.Async.Reader
   ( readerTestGroup
   ) where
-import Control.Monad.Reader
+import Control.Monad (void, when)
+import Control.Monad.Reader (runReaderT, liftIO)
 import Data.Maybe (isJust, isNothing)
 
 import Control.Concurrent.Lifted
diff --git a/tests/Test/Async/State.hs b/tests/Test/Async/State.hs
--- a/tests/Test/Async/State.hs
+++ b/tests/Test/Async/State.hs
@@ -2,7 +2,8 @@
 module Test.Async.State
   ( stateTestGroup
   ) where
-import Control.Monad.State
+import Control.Monad (void, when)
+import Control.Monad.State (runStateT, get, modify, liftIO)
 import Data.Maybe (isJust, isNothing)
 
 import Control.Concurrent.Lifted