From 2a1b8dc0fe0e9df03d20e570adf32b7cc49181e4 Mon Sep 17 00:00:00 2001
From: Noah Williams <noahmartinwilliams@gmail.com>
Date: Sat, 27 Dec 2025 14:01:01 -0500
Subject: [PATCH] Fix Compilation Errors For Latest Template Haskell

Template Haskell 2.23.0 wasn't compiling with it.
---
 memoize.cabal                   | 2 +-
 src/Data/Function/Memoize/TH.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/memoize.cabal b/memoize.cabal
index 4eda79e..26469e7 100644
--- a/memoize.cabal
+++ b/memoize.cabal
@@ -1,6 +1,6 @@
 cabal-version:  2.2
 name:           memoize
-version:        1.1.1
+version:        1.1.3
 license:        BSD-3-Clause
 license-file:   LICENSE
 stability:      experimental
diff --git a/src/Data/Function/Memoize/TH.hs b/src/Data/Function/Memoize/TH.hs
index 802c60a..75b57b7 100644
--- a/src/Data/Function/Memoize/TH.hs
+++ b/src/Data/Function/Memoize/TH.hs
@@ -156,7 +156,7 @@ deriveMemoizable' name0 mindices = do
 --   corresponds to a @data@ or @newtype@, and if so, returns the name,
 --   a list of its parameters, and a list of constructor names with
 --   their arities.
-checkName ∷ Name → Q (Name, [COMPAT_TY_VAR_BNDR(())], [(Name, Int)])
+checkName ∷ Name → Q (Name, [COMPAT_TY_VAR_BNDR(BndrVis)], [(Name, Int)])
 checkName name0 = do
   let can'tDerive      = "deriveMemoizable: Can’t derive a Memoizable " ++
                          "instance for ‘" ++ show name0 ++ "’ because "