summaryrefslogtreecommitdiff
path: root/ddl/out/LambdaCube.IR.purs
diff options
context:
space:
mode:
Diffstat (limited to 'ddl/out/LambdaCube.IR.purs')
-rw-r--r--ddl/out/LambdaCube.IR.purs10
1 files changed, 7 insertions, 3 deletions
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 459c1c8..3e88ad7 100644
--- a/ddl/out/LambdaCube.IR.purs
+++ b/ddl/out/LambdaCube.IR.purs
@@ -1,5 +1,5 @@
1-- generated file, do not modify! 1-- generated file, do not modify!
2-- 2016-01-28T13:15:30.803775Z 2-- 2016-02-08T13:33:23.674070000000Z
3 3
4module LambdaCube.IR where 4module LambdaCube.IR where
5import Prelude 5import Prelude
@@ -442,7 +442,8 @@ data Backend
442 442
443data Pipeline 443data Pipeline
444 = Pipeline 444 = Pipeline
445 { backend :: Backend 445 { info :: String
446 , backend :: Backend
446 , textures :: Array TextureDescriptor 447 , textures :: Array TextureDescriptor
447 , samplers :: Array SamplerDescriptor 448 , samplers :: Array SamplerDescriptor
448 , targets :: Array RenderTarget 449 , targets :: Array RenderTarget
@@ -1553,6 +1554,7 @@ instance encodeJsonPipeline :: EncodeJson Pipeline where
1553 encodeJson v = case v of 1554 encodeJson v = case v of
1554 Pipeline r -> 1555 Pipeline r ->
1555 "tag" := "Pipeline" ~> 1556 "tag" := "Pipeline" ~>
1557 "info" := r.info ~>
1556 "backend" := r.backend ~> 1558 "backend" := r.backend ~>
1557 "textures" := r.textures ~> 1559 "textures" := r.textures ~>
1558 "samplers" := r.samplers ~> 1560 "samplers" := r.samplers ~>
@@ -1569,6 +1571,7 @@ instance decodeJsonPipeline :: DecodeJson Pipeline where
1569 tag <- obj .? "tag" 1571 tag <- obj .? "tag"
1570 case tag of 1572 case tag of
1571 "Pipeline" -> do 1573 "Pipeline" -> do
1574 info <- obj .? "info"
1572 backend <- obj .? "backend" 1575 backend <- obj .? "backend"
1573 textures <- obj .? "textures" 1576 textures <- obj .? "textures"
1574 samplers <- obj .? "samplers" 1577 samplers <- obj .? "samplers"
@@ -1578,7 +1581,8 @@ instance decodeJsonPipeline :: DecodeJson Pipeline where
1578 streams <- obj .? "streams" 1581 streams <- obj .? "streams"
1579 commands <- obj .? "commands" 1582 commands <- obj .? "commands"
1580 pure $ Pipeline 1583 pure $ Pipeline
1581 { backend:backend 1584 { info:info
1585 , backend:backend
1582 , textures:textures 1586 , textures:textures
1583 , samplers:samplers 1587 , samplers:samplers
1584 , targets:targets 1588 , targets:targets