From be15acefdb6ed295fad8abddaab9a2c67b549964 Mon Sep 17 00:00:00 2001 From: Rory Campbell Date: Fri, 12 Apr 2024 11:07:28 +0200 Subject: [PATCH] bundle --- gen-schema-bundled.mjs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gen-schema-bundled.mjs b/gen-schema-bundled.mjs index a3e35e8..9b9a25e 100644 --- a/gen-schema-bundled.mjs +++ b/gen-schema-bundled.mjs @@ -58945,7 +58945,7 @@ var template = function(modulePrefix) { return "module " + (modulePrefix + ("Schema." + (v.schemaName + (".Enum." + (v.name + (" where\n\nimport Prelude\n\nimport Data.Argonaut.Decode (class DecodeJson, JsonDecodeError(..), decodeJson)\nimport Data.Argonaut.Encode (class EncodeJson, encodeJson)\nimport Data.Bounded (class Bounded)\nimport Data.Enum (class Enum, class BoundedEnum, Cardinality(..))\nimport Data.Either (Either(..))\nimport Data.Function (on)\nimport Data.Maybe (Maybe(..))\nimport GraphQL.Client.ToGqlString (class GqlArgString)\nimport GraphQL.Hasura.Decode (class DecodeHasura)\nimport GraphQL.Hasura.Encode (class EncodeHasura)\n" + (intercalate7("\n")(v.imports) + ("\n\n" + (docComment2(v.description) + ("data " + (v.name + (" \n = " + (enumCtrs + ("\n" + (v.customCode({ name: v.name, values: valuesAndTransforms - }) + ("\n\ninstance eq" + (v.name + (" :: Eq " + (v.name + (" where \n eq = eq `on` show\n\ninstance ord" + (v.name + (" :: Ord " + (v.name + (" where\n compare = compare `on` show\n\ninstance gqlArgString" + (v.name + (" :: GqlArgString " + (v.name + (" where\n toGqlArgStringImpl = show\n\ninstance decodeJson" + (v.name + (" :: DecodeJson " + (v.name + (" where\n decodeJson = decodeJson >=> case _ of \n" + (decodeMember + ('\n s -> Left $ TypeMismatch $ "Not a ' + (v.name + (': " <> s\n\ninstance encodeJson' + (v.name + (" :: EncodeJson " + (v.name + (" where \n encodeJson = show >>> encodeJson\n\ninstance decdoeHasura" + (v.name + (" :: DecodeHasura " + (v.name + (" where \n decodeHasura = decodeJson\n\ninstance encodeHasura" + (v.name + (" :: EncodeHasura " + (v.name + (" where \n encodeHasura = encodeJson\n\ninstance show" + (v.name + (" :: Show " + (v.name + (" where\n show a = case a of \n" + (showMember + ("\n\ninstance enum" + (v.name + (" :: Enum " + (v.name + (" where\n succ a = case a of \n " + (succMembers + ("\n pred a = case a of \n " + (predMembers + ("\n\ninstance bounded" + (v.name + (" :: Bounded " + (v.name + (" where\n top = " + (enumValueName(v1.head) + ("\n bottom = " + (enumValueName(v2.last) + ("\n\ninstance boundedEnum" + (v.name + (" :: BoundedEnum " + (v.name + (" where\n cardinality = Cardinality " + (show4(length3(v.values)) + ("\n toEnum a = case a of\n " + (toEnumMembers + ("\n fromEnum a = case a of\n " + (fromEnumMembers + "\n\n"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + }) + ("\n\ninstance eq" + (v.name + (" :: Eq " + (v.name + (" where \n eq = eq `on` show\n\ninstance ord" + (v.name + (" :: Ord " + (v.name + (" where\n compare = compare `on` show\n\ninstance gqlArgString" + (v.name + (" :: GqlArgString " + (v.name + (" where\n toGqlArgStringImpl = show\n\ninstance decodeJson" + (v.name + (" :: DecodeJson " + (v.name + (" where\n decodeJson = decodeJson >=> case _ of \n" + (decodeMember + ('\n s -> Left $ TypeMismatch $ "Not a ' + (v.name + (': " <> s\n\ninstance encodeJson' + (v.name + (" :: EncodeJson " + (v.name + (" where \n encodeJson = show >>> encodeJson\n\ninstance decdoeHasura" + (v.name + (" :: DecodeHasura " + (v.name + (" where \n decodeHasura = decodeJson\n\ninstance encodeHasura" + (v.name + (" :: EncodeHasura " + (v.name + (" where \n encodeHasura = encodeJson\n\ninstance show" + (v.name + (" :: Show " + (v.name + (" where\n show a = case a of \n" + (showMember + ("\n\ninstance enum" + (v.name + (" :: Enum " + (v.name + (" where\n succ a = case a of \n " + (succMembers + ("\n pred a = case a of \n " + (predMembers + ("\n\ninstance bounded" + (v.name + (" :: Bounded " + (v.name + (" where\n top = " + (enumValueName(v2.last) + ("\n bottom = " + (enumValueName(v1.head) + ("\n\ninstance boundedEnum" + (v.name + (" :: BoundedEnum " + (v.name + (" where\n cardinality = Cardinality " + (show4(length3(v.values)) + ("\n toEnum a = case a of\n " + (toEnumMembers + ("\n fromEnum a = case a of\n " + (fromEnumMembers + "\n\n"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); }; };