diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,10 @@
 
 ## Unreleased changes
 
+## 0.1.0.8
+
+* GHC 9 support
+
 ## 0.1.0.7
 
 * Add `terminalUICustomExceptionFormatters`.
diff --git a/sandwich.cabal b/sandwich.cabal
--- a/sandwich.cabal
+++ b/sandwich.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: eaa7784b529c488c051e94777fd56a24706b8f3c93b51160ed979973d59b361b
+-- hash: 6924bc737e970dc68d85aa857491503c9accf2cee9d812255dadcad1c98ea77a
 
 name:           sandwich
-version:        0.1.0.7
+version:        0.1.0.8
 synopsis:       Yet another test framework for Haskell
 description:    Please see the <https://codedownio.github.io/sandwich documentation>.
 category:       Testing
diff --git a/src/Test/Sandwich/Types/Spec.hs b/src/Test/Sandwich/Types/Spec.hs
--- a/src/Test/Sandwich/Types/Spec.hs
+++ b/src/Test/Sandwich/Types/Spec.hs
@@ -58,7 +58,7 @@
 
 instance MonadTransControl (ExampleT context) where
   type StT (ExampleT context) a = StT LoggingT (StT (ReaderT context) a)
-  liftWith = defaultLiftWith2 ExampleT unExampleT
+  liftWith f = defaultLiftWith2 ExampleT unExampleT $ \x -> f x
   restoreT = defaultRestoreT2 ExampleT
 
 instance (MonadBaseControl b m) => MonadBaseControl b (ExampleT context m) where