summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCsaba Hruska <csaba.hruska@gmail.com>2016-11-15 21:47:21 +0100
committerCsaba Hruska <csaba.hruska@gmail.com>2016-11-15 21:47:21 +0100
commit0c1d880cc83b6499cf4d5481f6f80db9c01f4783 (patch)
tree991502ec44eb3ceae1a94c5f33c13e2bf930f8ee
parentc7df33b55d5faa03e7dda4fe5515eb4562006877 (diff)
update generated purescript modules
-rw-r--r--ddl/out/purescript/LambdaCube/IR.purs17
-rw-r--r--ddl/out/purescript/LambdaCube/Mesh.purs3
-rw-r--r--ddl/out/purescript/LambdaCube/PipelineSchema.purs3
-rw-r--r--ddl/out/purescript/LambdaCube/TypeInfo.purs3
-rw-r--r--ddl/out/purescript/TestData.purs3
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 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-11-14T21:30:02.094169000000Z 2-- 2016-11-15T20:33:22.535345000000Z
3 3
4module LambdaCube.IR where 4module LambdaCube.IR where
5import Prelude 5import Prelude
@@ -457,30 +457,15 @@ data Pipeline
457 457
458 458
459 459
460derive instance genericInputType :: Generic InputType
461instance showInputType :: Show InputType where show = gShow
462instance eqInputType :: Eq InputType where eq = gEq
463
464derive instance genericFetchPrimitive :: Generic FetchPrimitive 460derive instance genericFetchPrimitive :: Generic FetchPrimitive
465instance showFetchPrimitive :: Show FetchPrimitive where show = gShow 461instance showFetchPrimitive :: Show FetchPrimitive where show = gShow
466instance eqFetchPrimitive :: Eq FetchPrimitive where eq = gEq 462instance eqFetchPrimitive :: Eq FetchPrimitive where eq = gEq
467 463
468derive instance genericColorArity :: Generic ColorArity 464derive instance genericColorArity :: Generic ColorArity
469instance showColorArity :: Show ColorArity where show = gShow 465instance showColorArity :: Show ColorArity where show = gShow
470instance eqColorArity :: Eq ColorArity where eq = gEq
471 466
472derive instance genericTextureDataType :: Generic TextureDataType 467derive instance genericTextureDataType :: Generic TextureDataType
473instance showTextureDataType :: Show TextureDataType where show = gShow 468instance showTextureDataType :: Show TextureDataType where show = gShow
474instance eqTextureDataType :: Eq TextureDataType where eq = gEq
475
476derive instance genericImageSemantic :: Generic ImageSemantic
477instance showImageSemantic :: Show ImageSemantic where show = gShow
478instance eqImageSemantic :: Eq ImageSemantic where eq = gEq
479
480derive instance genericPipeline :: Generic Pipeline
481instance showPipeline :: Show Pipeline where show = gShow
482instance eqPipeline :: Eq Pipeline where eq = gEq
483
484 469
485instance encodeJsonArrayValue :: EncodeJson ArrayValue where 470instance encodeJsonArrayValue :: EncodeJson ArrayValue where
486 encodeJson v = case v of 471 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 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-11-14T21:30:03.056917000000Z 2-- 2016-11-15T20:33:23.430512000000Z
3 3
4module LambdaCube.Mesh where 4module LambdaCube.Mesh where
5import Prelude 5import Prelude
@@ -45,7 +45,6 @@ data Mesh
45 45
46 46
47 47
48
49instance encodeJsonMeshAttribute :: EncodeJson MeshAttribute where 48instance encodeJsonMeshAttribute :: EncodeJson MeshAttribute where
50 encodeJson v = case v of 49 encodeJson v = case v of
51 A_Float arg0 -> "tag" := "A_Float" ~> "arg0" := arg0 ~> jsonEmptyObject 50 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 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-11-15T13:20:49.544037000000Z 2-- 2016-11-15T20:33:23.372931000000Z
3 3
4module LambdaCube.PipelineSchema where 4module LambdaCube.PipelineSchema where
5import Prelude 5import Prelude
@@ -62,7 +62,6 @@ derive instance genericStreamType :: Generic StreamType
62instance showStreamType :: Show StreamType where show = gShow 62instance showStreamType :: Show StreamType where show = gShow
63instance eqStreamType :: Eq StreamType where eq = gEq 63instance eqStreamType :: Eq StreamType where eq = gEq
64 64
65
66instance encodeJsonStreamType :: EncodeJson StreamType where 65instance encodeJsonStreamType :: EncodeJson StreamType where
67 encodeJson v = case v of 66 encodeJson v = case v of
68 Attribute_Word -> "tag" := "Attribute_Word" ~> jsonEmptyObject 67 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 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-11-14T21:30:03.153267000000Z 2-- 2016-11-15T20:33:23.520088000000Z
3 3
4module LambdaCube.TypeInfo where 4module LambdaCube.TypeInfo where
5import Prelude 5import Prelude
@@ -55,7 +55,6 @@ data CompileResult
55 | Compiled String String Pipeline (Array TypeInfo) (Array WarningInfo) 55 | Compiled String String Pipeline (Array TypeInfo) (Array WarningInfo)
56 56
57 57
58
59instance encodeJsonRange :: EncodeJson Range where 58instance encodeJsonRange :: EncodeJson Range where
60 encodeJson v = case v of 59 encodeJson v = case v of
61 Range r -> 60 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 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-11-14T21:30:03.236917000000Z 2-- 2016-11-15T20:33:23.597363000000Z
3 3
4module TestData where 4module TestData where
5import Prelude 5import Prelude
@@ -76,7 +76,6 @@ data RenderJobResult
76 | RenderJobError String 76 | RenderJobError String
77 77
78 78
79
80instance encodeJsonClientInfo :: EncodeJson ClientInfo where 79instance encodeJsonClientInfo :: EncodeJson ClientInfo where
81 encodeJson v = case v of 80 encodeJson v = case v of
82 ClientInfo r -> 81 ClientInfo r ->