diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-15 21:47:21 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-15 21:47:21 +0100 |
commit | 0c1d880cc83b6499cf4d5481f6f80db9c01f4783 (patch) | |
tree | 991502ec44eb3ceae1a94c5f33c13e2bf930f8ee | |
parent | c7df33b55d5faa03e7dda4fe5515eb4562006877 (diff) |
update generated purescript modules
-rw-r--r-- | ddl/out/purescript/LambdaCube/IR.purs | 17 | ||||
-rw-r--r-- | ddl/out/purescript/LambdaCube/Mesh.purs | 3 | ||||
-rw-r--r-- | ddl/out/purescript/LambdaCube/PipelineSchema.purs | 3 | ||||
-rw-r--r-- | ddl/out/purescript/LambdaCube/TypeInfo.purs | 3 | ||||
-rw-r--r-- | 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 @@ | |||
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 | ||
4 | module LambdaCube.IR where | 4 | module LambdaCube.IR where |
5 | import Prelude | 5 | import Prelude |
@@ -457,30 +457,15 @@ data Pipeline | |||
457 | 457 | ||
458 | 458 | ||
459 | 459 | ||
460 | derive instance genericInputType :: Generic InputType | ||
461 | instance showInputType :: Show InputType where show = gShow | ||
462 | instance eqInputType :: Eq InputType where eq = gEq | ||
463 | |||
464 | derive instance genericFetchPrimitive :: Generic FetchPrimitive | 460 | derive instance genericFetchPrimitive :: Generic FetchPrimitive |
465 | instance showFetchPrimitive :: Show FetchPrimitive where show = gShow | 461 | instance showFetchPrimitive :: Show FetchPrimitive where show = gShow |
466 | instance eqFetchPrimitive :: Eq FetchPrimitive where eq = gEq | 462 | instance eqFetchPrimitive :: Eq FetchPrimitive where eq = gEq |
467 | 463 | ||
468 | derive instance genericColorArity :: Generic ColorArity | 464 | derive instance genericColorArity :: Generic ColorArity |
469 | instance showColorArity :: Show ColorArity where show = gShow | 465 | instance showColorArity :: Show ColorArity where show = gShow |
470 | instance eqColorArity :: Eq ColorArity where eq = gEq | ||
471 | 466 | ||
472 | derive instance genericTextureDataType :: Generic TextureDataType | 467 | derive instance genericTextureDataType :: Generic TextureDataType |
473 | instance showTextureDataType :: Show TextureDataType where show = gShow | 468 | instance showTextureDataType :: Show TextureDataType where show = gShow |
474 | instance eqTextureDataType :: Eq TextureDataType where eq = gEq | ||
475 | |||
476 | derive instance genericImageSemantic :: Generic ImageSemantic | ||
477 | instance showImageSemantic :: Show ImageSemantic where show = gShow | ||
478 | instance eqImageSemantic :: Eq ImageSemantic where eq = gEq | ||
479 | |||
480 | derive instance genericPipeline :: Generic Pipeline | ||
481 | instance showPipeline :: Show Pipeline where show = gShow | ||
482 | instance eqPipeline :: Eq Pipeline where eq = gEq | ||
483 | |||
484 | 469 | ||
485 | instance encodeJsonArrayValue :: EncodeJson ArrayValue where | 470 | instance 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 | ||
4 | module LambdaCube.Mesh where | 4 | module LambdaCube.Mesh where |
5 | import Prelude | 5 | import Prelude |
@@ -45,7 +45,6 @@ data Mesh | |||
45 | 45 | ||
46 | 46 | ||
47 | 47 | ||
48 | |||
49 | instance encodeJsonMeshAttribute :: EncodeJson MeshAttribute where | 48 | instance 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 | ||
4 | module LambdaCube.PipelineSchema where | 4 | module LambdaCube.PipelineSchema where |
5 | import Prelude | 5 | import Prelude |
@@ -62,7 +62,6 @@ derive instance genericStreamType :: Generic StreamType | |||
62 | instance showStreamType :: Show StreamType where show = gShow | 62 | instance showStreamType :: Show StreamType where show = gShow |
63 | instance eqStreamType :: Eq StreamType where eq = gEq | 63 | instance eqStreamType :: Eq StreamType where eq = gEq |
64 | 64 | ||
65 | |||
66 | instance encodeJsonStreamType :: EncodeJson StreamType where | 65 | instance 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 | ||
4 | module LambdaCube.TypeInfo where | 4 | module LambdaCube.TypeInfo where |
5 | import Prelude | 5 | import 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 | |||
59 | instance encodeJsonRange :: EncodeJson Range where | 58 | instance 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 | ||
4 | module TestData where | 4 | module TestData where |
5 | import Prelude | 5 | import Prelude |
@@ -76,7 +76,6 @@ data RenderJobResult | |||
76 | | RenderJobError String | 76 | | RenderJobError String |
77 | 77 | ||
78 | 78 | ||
79 | |||
80 | instance encodeJsonClientInfo :: EncodeJson ClientInfo where | 79 | instance encodeJsonClientInfo :: EncodeJson ClientInfo where |
81 | encodeJson v = case v of | 80 | encodeJson v = case v of |
82 | ClientInfo r -> | 81 | ClientInfo r -> |