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 @@
 -- generated file, do not modify!
--- 2016-02-08T13:33:24.109009000000Z
+-- 2016-02-12T16:05:13.383716000000Z
 
 module TestData where
 import Prelude
@@ -44,13 +44,20 @@ data Scene
   }
 
 
+data PipelineInfo
+  = PipelineInfo
+  { pipelineName :: String
+  , pipeline :: Pipeline
+  }
+
+
 data RenderJob
   = RenderJob
   { meshes :: Array Mesh
   , textures :: Array String
   , schema :: PipelineSchema
   , scenes :: Array Scene
-  , pipelines :: Array Pipeline
+  , pipelines :: Array PipelineInfo
   }
 
 
@@ -140,6 +147,27 @@ instance decodeJsonScene :: DecodeJson Scene where
           , frames:frames
           } 
 
+instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where
+  encodeJson v = case v of
+    PipelineInfo r ->
+      "tag" := "PipelineInfo" ~>
+      "pipelineName" := r.pipelineName ~>
+      "pipeline" := r.pipeline ~>
+      jsonEmptyObject
+
+instance decodeJsonPipelineInfo :: DecodeJson PipelineInfo where
+  decodeJson json = do
+    obj <- decodeJson json
+    tag <- obj .? "tag"
+    case tag of
+      "PipelineInfo" -> do
+        pipelineName <- obj .? "pipelineName"
+        pipeline <- obj .? "pipeline"
+        pure $ PipelineInfo
+          { pipelineName:pipelineName
+          , pipeline:pipeline
+          } 
+
 instance encodeJsonRenderJob :: EncodeJson RenderJob where
   encodeJson v = case v of
     RenderJob r ->