From 48f96242022e6ab4bb9abd0543a8dc64c0b3a536 Mon Sep 17 00:00:00 2001
From: Rory Campbell <roryc89@googlemail.com>
Date: Mon, 12 Jan 2026 15:04:26 +0100
Subject: [PATCH] check var types

---
 src/GraphQL/Client/Variables.purs      | 1 +
 test/GraphQL/Client/Variable.Test.purs | 5 ++---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/GraphQL/Client/Variables.purs b/src/GraphQL/Client/Variables.purs
index 8c707f8..bac1475 100644
--- a/src/GraphQL/Client/Variables.purs
+++ b/src/GraphQL/Client/Variables.purs
@@ -213,6 +213,7 @@ class VarsTypeChecked schema query where
 instance varsTypeCheckedWithVars ::
   ( GetGqlQueryVars schema query { | gqlVars }
   , HFoldlWithIndex (CombineVarsProp { | gqlVars }) GqlQueryVarsN { | vars } GqlQueryVarsN
+  , GetVar query {| vars}
   ) =>
   VarsTypeChecked schema (WithVars query { | vars }) where
   getVarsJson _ (WithVars encode _ vars) = encode vars
diff --git a/test/GraphQL/Client/Variable.Test.purs b/test/GraphQL/Client/Variable.Test.purs
index fc669fe..a1697b4 100644
--- a/test/GraphQL/Client/Variable.Test.purs
+++ b/test/GraphQL/Client/Variable.Test.purs
@@ -34,16 +34,15 @@ spec =
             , orders:
                 { name: Var :: Var "nameVar" String } =>>
 
-                  { user_id: Var :: Var "myOtherVar" Int }
+                  { user_id: unit }
             }
         getVarsTypeNames testSchemaProxy
           ( q `withVars`
               { myVar: 1
               , nameVar: "name"
-              , myOtherVar: 2
               }
           ) `shouldEqual`
-          "($nameVar: Name!, $myVar: customId!, $myOtherVar: UserId!)"
+          "($nameVar: Name!, $myVar: customId!)"
 
       it "should return vars for a query with vars in arrays in arguments" do
         let