diff --git a/sdl2-gfx.cabal b/sdl2-gfx.cabal
index efb7659..6fa37b4 100644
--- a/sdl2-gfx.cabal
+++ b/sdl2-gfx.cabal
@@ -44,7 +44,8 @@ library
     lifted-base      >= 0.2,
     monad-control    >= 1.0,
     sdl2             >= 2.0,
-    template-haskell,
+    template-haskell >=2.8 && <3,
+    template-haskell-compat-v0208 >=0.1.4 && <2,
     text,
     vector           >= 0.10.9.0
 
diff --git a/src/SDL/Raw/Helper.hs b/src/SDL/Raw/Helper.hs
index 1eccb77..ee4e612 100644
--- a/src/SDL/Raw/Helper.hs
+++ b/src/SDL/Raw/Helper.hs
@@ -20,6 +20,7 @@ module SDL.Raw.Helper (liftF) where
 import Control.Monad           (replicateM)
 import Control.Monad.IO.Class  (MonadIO, liftIO)
 import Language.Haskell.TH
+import qualified TemplateHaskell.Compat.V0208 as Compat
 
 -- | Given a name @fname@, a name of a C function @cname@ and the desired
 -- Haskell type @ftype@, this function generates:
@@ -81,7 +82,7 @@ liftType = \case
     m <- newName "m"
     return $
       ForallT
-        [PlainTV m]
+        [Compat.specifiedPlainTV m]
         [AppT (ConT ''MonadIO) $ VarT m]
         (AppT (VarT m) t)
   t -> return t
diff --git a/stack.yaml b/stack.yaml
index 14369dc..468ba03 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -1,2 +1,2 @@
-resolver: lts-7.18
+resolver: lts-21.25
 system-ghc: true