add VarTypeName instance for Date

src/GraphQL/Client/Variables/TypeName.purs

@@ -3,6 +3,7 @@ module GraphQL.Client.Variables.TypeName where
 import Prelude
 
 import Data.Argonaut.Core (Json)
+import Data.Date (Date)
 import Data.Maybe (Maybe)
 import Data.String.CodeUnits (dropRight, takeRight)
 import Data.Symbol (class IsSymbol, reflectSymbol)
@@ -38,21 +39,25 @@ instance varTypeNameMaybe :: VarTypeName a => VarTypeName (Maybe a) where
       else
         inner
 
-data VarTypeNameProps
-  = VarTypeNameProps
+instance VarTypeName Date where
+  varTypeName _ = "date!"
+
+data VarTypeNameProps = VarTypeNameProps
 
 instance varTypeNameProps ::
-  (VarTypeName a, IsSymbol sym) =>
+  ( VarTypeName a
+  , IsSymbol sym
+  ) =>
   FoldingWithIndex VarTypeNameProps (Proxy sym) String a String where
   foldingWithIndex VarTypeNameProps prop str _ = pre <> reflectSymbol prop <> ": " <> varTypeName (Proxy :: _ a)
     where
     pre
       | str == "" = "$"
       | otherwise = str <> ", $"
 
-varTypeNameRecord ::
-  forall r.
-  HFoldlWithIndex VarTypeNameProps String { | r } String =>
-  { | r } ->
-  String
+varTypeNameRecord
+  :: forall r
+   . HFoldlWithIndex VarTypeNameProps String { | r } String
+  => { | r }
+  -> String
 varTypeNameRecord r = "( " <> hfoldlWithIndex VarTypeNameProps "" r <> " )"