From 0c1d880cc83b6499cf4d5481f6f80db9c01f4783 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Tue, 15 Nov 2016 21:47:21 +0100 Subject: update generated purescript modules --- ddl/out/purescript/LambdaCube/IR.purs | 17 +---------------- ddl/out/purescript/LambdaCube/Mesh.purs | 3 +-- ddl/out/purescript/LambdaCube/PipelineSchema.purs | 3 +-- ddl/out/purescript/LambdaCube/TypeInfo.purs | 3 +-- ddl/out/purescript/TestData.purs | 3 +-- 5 files changed, 5 insertions(+), 24 deletions(-) diff --git a/ddl/out/purescript/LambdaCube/IR.purs b/ddl/out/purescript/LambdaCube/IR.purs index f77ffc9..18a8739 100644 --- a/ddl/out/purescript/LambdaCube/IR.purs +++ b/ddl/out/purescript/LambdaCube/IR.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-14T21:30:02.094169000000Z +-- 2016-11-15T20:33:22.535345000000Z module LambdaCube.IR where import Prelude @@ -457,30 +457,15 @@ data Pipeline -derive instance genericInputType :: Generic InputType -instance showInputType :: Show InputType where show = gShow -instance eqInputType :: Eq InputType where eq = gEq - derive instance genericFetchPrimitive :: Generic FetchPrimitive instance showFetchPrimitive :: Show FetchPrimitive where show = gShow instance eqFetchPrimitive :: Eq FetchPrimitive where eq = gEq derive instance genericColorArity :: Generic ColorArity instance showColorArity :: Show ColorArity where show = gShow -instance eqColorArity :: Eq ColorArity where eq = gEq derive instance genericTextureDataType :: Generic TextureDataType instance showTextureDataType :: Show TextureDataType where show = gShow -instance eqTextureDataType :: Eq TextureDataType where eq = gEq - -derive instance genericImageSemantic :: Generic ImageSemantic -instance showImageSemantic :: Show ImageSemantic where show = gShow -instance eqImageSemantic :: Eq ImageSemantic where eq = gEq - -derive instance genericPipeline :: Generic Pipeline -instance showPipeline :: Show Pipeline where show = gShow -instance eqPipeline :: Eq Pipeline where eq = gEq - instance encodeJsonArrayValue :: EncodeJson ArrayValue where encodeJson v = case v of diff --git a/ddl/out/purescript/LambdaCube/Mesh.purs b/ddl/out/purescript/LambdaCube/Mesh.purs index 58a7664..b91c0f6 100644 --- a/ddl/out/purescript/LambdaCube/Mesh.purs +++ b/ddl/out/purescript/LambdaCube/Mesh.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-14T21:30:03.056917000000Z +-- 2016-11-15T20:33:23.430512000000Z module LambdaCube.Mesh where import Prelude @@ -45,7 +45,6 @@ data Mesh - instance encodeJsonMeshAttribute :: EncodeJson MeshAttribute where encodeJson v = case v of A_Float arg0 -> "tag" := "A_Float" ~> "arg0" := arg0 ~> jsonEmptyObject diff --git a/ddl/out/purescript/LambdaCube/PipelineSchema.purs b/ddl/out/purescript/LambdaCube/PipelineSchema.purs index 057c6c6..bab2a91 100644 --- a/ddl/out/purescript/LambdaCube/PipelineSchema.purs +++ b/ddl/out/purescript/LambdaCube/PipelineSchema.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-15T13:20:49.544037000000Z +-- 2016-11-15T20:33:23.372931000000Z module LambdaCube.PipelineSchema where import Prelude @@ -62,7 +62,6 @@ derive instance genericStreamType :: Generic StreamType instance showStreamType :: Show StreamType where show = gShow instance eqStreamType :: Eq StreamType where eq = gEq - instance encodeJsonStreamType :: EncodeJson StreamType where encodeJson v = case v of Attribute_Word -> "tag" := "Attribute_Word" ~> jsonEmptyObject diff --git a/ddl/out/purescript/LambdaCube/TypeInfo.purs b/ddl/out/purescript/LambdaCube/TypeInfo.purs index defd96c..9cc71a1 100644 --- a/ddl/out/purescript/LambdaCube/TypeInfo.purs +++ b/ddl/out/purescript/LambdaCube/TypeInfo.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-14T21:30:03.153267000000Z +-- 2016-11-15T20:33:23.520088000000Z module LambdaCube.TypeInfo where import Prelude @@ -55,7 +55,6 @@ data CompileResult | Compiled String String Pipeline (Array TypeInfo) (Array WarningInfo) - instance encodeJsonRange :: EncodeJson Range where encodeJson v = case v of Range r -> diff --git a/ddl/out/purescript/TestData.purs b/ddl/out/purescript/TestData.purs index cc658f0..5cc80f3 100644 --- a/ddl/out/purescript/TestData.purs +++ b/ddl/out/purescript/TestData.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-14T21:30:03.236917000000Z +-- 2016-11-15T20:33:23.597363000000Z module TestData where import Prelude @@ -76,7 +76,6 @@ data RenderJobResult | RenderJobError String - instance encodeJsonClientInfo :: EncodeJson ClientInfo where encodeJson v = case v of ClientInfo r -> -- cgit v1.2.3