diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-18 13:04:34 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-18 13:04:34 +0100 |
commit | 54cc12e4d6f10bc33811713286a1931bf96f64f3 (patch) | |
tree | 05ebd4a155586581eefa97e543439518d088ffa3 /ddl/out/TestData.purs | |
parent | 09c4a1f8cf6a571f759ce60b3a439f614e6acc0d (diff) |
update test data
Diffstat (limited to 'ddl/out/TestData.purs')
-rw-r--r-- | ddl/out/TestData.purs | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/ddl/out/TestData.purs b/ddl/out/TestData.purs index 891704d..426da42 100644 --- a/ddl/out/TestData.purs +++ b/ddl/out/TestData.purs | |||
@@ -1,5 +1,5 @@ | |||
1 | -- generated file, do not modify! | 1 | -- generated file, do not modify! |
2 | -- 2016-02-08T13:33:24.109009000000Z | 2 | -- 2016-02-12T16:05:13.383716000000Z |
3 | 3 | ||
4 | module TestData where | 4 | module TestData where |
5 | import Prelude | 5 | import Prelude |
@@ -44,13 +44,20 @@ data Scene | |||
44 | } | 44 | } |
45 | 45 | ||
46 | 46 | ||
47 | data PipelineInfo | ||
48 | = PipelineInfo | ||
49 | { pipelineName :: String | ||
50 | , pipeline :: Pipeline | ||
51 | } | ||
52 | |||
53 | |||
47 | data RenderJob | 54 | data RenderJob |
48 | = RenderJob | 55 | = RenderJob |
49 | { meshes :: Array Mesh | 56 | { meshes :: Array Mesh |
50 | , textures :: Array String | 57 | , textures :: Array String |
51 | , schema :: PipelineSchema | 58 | , schema :: PipelineSchema |
52 | , scenes :: Array Scene | 59 | , scenes :: Array Scene |
53 | , pipelines :: Array Pipeline | 60 | , pipelines :: Array PipelineInfo |
54 | } | 61 | } |
55 | 62 | ||
56 | 63 | ||
@@ -140,6 +147,27 @@ instance decodeJsonScene :: DecodeJson Scene where | |||
140 | , frames:frames | 147 | , frames:frames |
141 | } | 148 | } |
142 | 149 | ||
150 | instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where | ||
151 | encodeJson v = case v of | ||
152 | PipelineInfo r -> | ||
153 | "tag" := "PipelineInfo" ~> | ||
154 | "pipelineName" := r.pipelineName ~> | ||
155 | "pipeline" := r.pipeline ~> | ||
156 | jsonEmptyObject | ||
157 | |||
158 | instance decodeJsonPipelineInfo :: DecodeJson PipelineInfo where | ||
159 | decodeJson json = do | ||
160 | obj <- decodeJson json | ||
161 | tag <- obj .? "tag" | ||
162 | case tag of | ||
163 | "PipelineInfo" -> do | ||
164 | pipelineName <- obj .? "pipelineName" | ||
165 | pipeline <- obj .? "pipeline" | ||
166 | pure $ PipelineInfo | ||
167 | { pipelineName:pipelineName | ||
168 | , pipeline:pipeline | ||
169 | } | ||
170 | |||
143 | instance encodeJsonRenderJob :: EncodeJson RenderJob where | 171 | instance encodeJsonRenderJob :: EncodeJson RenderJob where |
144 | encodeJson v = case v of | 172 | encodeJson v = case v of |
145 | RenderJob r -> | 173 | RenderJob r -> |