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.purs5
1 files changed, 4 insertions, 1 deletions
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 8149d3e..7a2a693 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-03-21T15:32:16.153401000000Z 2-- 2016-03-27T21:14:11.531713000000Z
3 3
4module LambdaCube.IR where 4module LambdaCube.IR where
5import Prelude 5import Prelude
@@ -439,6 +439,7 @@ data RenderTarget
439data Backend 439data Backend
440 = WebGL1 440 = WebGL1
441 | OpenGL33 441 | OpenGL33
442 | DirectX11
442 443
443data Pipeline 444data Pipeline
444 = Pipeline 445 = Pipeline
@@ -1541,6 +1542,7 @@ instance encodeJsonBackend :: EncodeJson Backend where
1541 encodeJson v = case v of 1542 encodeJson v = case v of
1542 WebGL1 -> "tag" := "WebGL1" ~> jsonEmptyObject 1543 WebGL1 -> "tag" := "WebGL1" ~> jsonEmptyObject
1543 OpenGL33 -> "tag" := "OpenGL33" ~> jsonEmptyObject 1544 OpenGL33 -> "tag" := "OpenGL33" ~> jsonEmptyObject
1545 DirectX11 -> "tag" := "DirectX11" ~> jsonEmptyObject
1544 1546
1545instance decodeJsonBackend :: DecodeJson Backend where 1547instance decodeJsonBackend :: DecodeJson Backend where
1546 decodeJson json = do 1548 decodeJson json = do
@@ -1549,6 +1551,7 @@ instance decodeJsonBackend :: DecodeJson Backend where
1549 case tag of 1551 case tag of
1550 "WebGL1" -> pure WebGL1 1552 "WebGL1" -> pure WebGL1
1551 "OpenGL33" -> pure OpenGL33 1553 "OpenGL33" -> pure OpenGL33
1554 "DirectX11" -> pure DirectX11
1552 1555
1553instance encodeJsonPipeline :: EncodeJson Pipeline where 1556instance encodeJsonPipeline :: EncodeJson Pipeline where
1554 encodeJson v = case v of 1557 encodeJson v = case v of