fix tests

src/GraphQL/Client/Args.purs

@@ -7,6 +7,7 @@ import Data.DateTime (DateTime)
 import Data.Maybe (Maybe)
 import Data.Symbol (class IsSymbol, SProxy)
 import Data.Time (Time)
+import Data.Typelevel.Bool (False, True)
 import Heterogeneous.Folding (class FoldingWithIndex, class HFoldlWithIndex)
 import Heterogeneous.Mapping (class HMapWithIndex, class MappingWithIndex)
 import Prim.Row as Row
@@ -32,12 +33,18 @@ infixr 6 AndArg as ++
 
 class ArgGql params arg
 
-instance argToGqlNotNull :: ArgGql param arg => ArgGql (NotNull param) arg
-instance argToGqlMaybe :: ArgGql param arg => ArgGql (Maybe param) arg
-instance argToGqlArray :: ArgGql param arg => ArgGql (Array param) (Array arg)
+instance argToGqlNotNull :: (MaybeNotAllowedForNotNullArgs False arg, ArgGql param arg) => ArgGql (NotNull param) arg
+else instance argToGqlMaybe :: ArgGql param arg => ArgGql param (Maybe arg)
+else instance argToGqlArray :: ArgGql param arg => ArgGql (Array param) (Array arg)
 else instance argToGqlArrayAnd :: (ArgGql param a1, ArgGql (Array param) a2) => ArgGql (Array param) (AndArg a1 a2)
 else instance argToGqlArrayOne :: ArgGql param arg => ArgGql (Array param) arg
 
+class MaybeNotAllowedForNotNullArgs b t | b -> t 
+
+instance isMaybe :: MaybeNotAllowedForNotNullArgs True (Maybe a)
+
+instance isNotMaybe :: MaybeNotAllowedForNotNullArgs False a
+
 instance argToGqlInt :: ArgGql Int Int
 instance argToGqlNumber :: ArgGql Number Number
 instance argToGqlString :: ArgGql String String

test/GraphQL/Client/CodeGen/SchemaFromGqlToPurs.Test.purs

@@ -204,7 +204,7 @@ enum my_enum {
             , symbols: [ "prop" ]
             , enums:
                 [ { name: "MyEnum"
-                  , values: [ "EnumVal1", "EnumVal2" ]
+                  , values: [ "enum_val1", "enum_val2" ]
                   }
                 ]
             }