From a24f83a3d08cd004b9db4a74d8de08ed032da0d7 Mon Sep 17 00:00:00 2001
From: Ellie Hermaszewska <git@monoid.al>
Date: Mon, 9 Sep 2024 13:01:46 +0800
Subject: [PATCH] Fix for TH 2.21

---
 src/Hyper/TH/Nodes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Hyper/TH/Nodes.hs b/src/Hyper/TH/Nodes.hs
index 7a1c524..dba6982 100644
--- a/src/Hyper/TH/Nodes.hs
+++ b/src/Hyper/TH/Nodes.hs
@@ -45,7 +45,7 @@ makeHNodesForType info =
                     [ dataD
                         (pure [])
                         witTypeName
-                        (tiParams info <> [plainTV (mkName "node")])
+                        (((BndrReq <$) <$> tiParams info) <> [plainTV (mkName "node")])
                         Nothing
                         (nodeOfCons <&> (witType >>=))
                         []