diff options
Diffstat (limited to 'ddl/out/LambdaCube.IR.purs')
-rw-r--r-- | ddl/out/LambdaCube.IR.purs | 5 |
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 | ||
4 | module LambdaCube.IR where | 4 | module LambdaCube.IR where |
5 | import Prelude | 5 | import Prelude |
@@ -439,6 +439,7 @@ data RenderTarget | |||
439 | data Backend | 439 | data Backend |
440 | = WebGL1 | 440 | = WebGL1 |
441 | | OpenGL33 | 441 | | OpenGL33 |
442 | | DirectX11 | ||
442 | 443 | ||
443 | data Pipeline | 444 | data 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 | ||
1545 | instance decodeJsonBackend :: DecodeJson Backend where | 1547 | instance 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 | ||
1553 | instance encodeJsonPipeline :: EncodeJson Pipeline where | 1556 | instance encodeJsonPipeline :: EncodeJson Pipeline where |
1554 | encodeJson v = case v of | 1557 | encodeJson v = case v of |