diff options
Diffstat (limited to 'ddl/out/LambdaCube.IR.purs')
-rw-r--r-- | ddl/out/LambdaCube.IR.purs | 10 |
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 | ||
4 | module LambdaCube.IR where | 4 | module LambdaCube.IR where |
5 | import Prelude | 5 | import Prelude |
@@ -442,7 +442,8 @@ data Backend | |||
442 | 442 | ||
443 | data Pipeline | 443 | data 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 |