diff --git a/alex-meta.cabal b/alex-meta.cabal
--- a/alex-meta.cabal
+++ b/alex-meta.cabal
@@ -1,5 +1,5 @@
 Name:                alex-meta
-Version:             0.3.0.12
+Version:             0.3.0.13
 Synopsis:            Quasi-quoter for Alex lexers
 -- Description:         
 License:             BSD3
@@ -25,7 +25,7 @@
   
   -- Packages needed in order to build this package.
   Build-depends:
-      template-haskell >=2.5&&<2.17
+      template-haskell >=2.5&&<2.18
     , haskell-src-meta >=0.5.1.2&&<1.0
     , base >= 4.2 && < 5
     , array, containers
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,10 @@
 # CHANGELOG for alex-meta
 
+## v0.3.0.13
+
+- Compatibility with GHC 9
+
 ## v0.3.0.12
 
 - Bump template-haskell version
+
diff --git a/src/DFAMin.hs b/src/DFAMin.hs
--- a/src/DFAMin.hs
+++ b/src/DFAMin.hs
@@ -32,9 +32,9 @@
 -- end;
 
 minimizeDFA :: Ord a => DFA Int a -> DFA Int a
-minimizeDFA  dfa@ DFA { dfa_start_states = starts,
-                        dfa_states       = statemap
-                      }
+minimizeDFA  dfa@DFA { dfa_start_states = starts,
+                       dfa_states       = statemap
+                     }
   = DFA { dfa_start_states = starts,
           dfa_states       = Map.fromList states }
   where