diff --git a/Language/Haskell/GhcMod/Monad/Types.hs b/Language/Haskell/GhcMod/Monad/Types.hs
index f769a5b..b2ec57b 100644
--- a/Language/Haskell/GhcMod/Monad/Types.hs
+++ b/Language/Haskell/GhcMod/Monad/Types.hs
@@ -342,8 +342,9 @@ instance (MonadBaseControl IO m) => MonadBaseControl IO (GhcModT m) where
                 (ErrorT GhcModError
                   (JournalT GhcModLog
                     (ReaderT GhcModEnv m) ) ) ) a
-    liftBaseWith f = GhcModT . liftBaseWith $ \runInBase ->
-        f $ runInBase . unGhcModT
+
+    liftBaseWith f = GhcModT (liftBaseWith $ \runInBase ->
+        f $ runInBase . unGhcModT)
 
     restoreM = GhcModT . restoreM
     {-# INLINE liftBaseWith #-}