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, 1 insertions, 4 deletions
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 6e864c7..b7e7536 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-11-10T16:02:37.496440000000Z 2-- 2016-11-11T11:17:02.701527000000Z
3 3
4module LambdaCube.IR where 4module LambdaCube.IR where
5import Prelude 5import Prelude
@@ -441,7 +441,6 @@ data RenderTarget
441data Backend 441data Backend
442 = WebGL1 442 = WebGL1
443 | OpenGL33 443 | OpenGL33
444 | DirectX11
445 444
446data Pipeline 445data Pipeline
447 = Pipeline 446 = Pipeline
@@ -1586,7 +1585,6 @@ instance encodeJsonBackend :: EncodeJson Backend where
1586 encodeJson v = case v of 1585 encodeJson v = case v of
1587 WebGL1 -> "tag" := "WebGL1" ~> jsonEmptyObject 1586 WebGL1 -> "tag" := "WebGL1" ~> jsonEmptyObject
1588 OpenGL33 -> "tag" := "OpenGL33" ~> jsonEmptyObject 1587 OpenGL33 -> "tag" := "OpenGL33" ~> jsonEmptyObject
1589 DirectX11 -> "tag" := "DirectX11" ~> jsonEmptyObject
1590 1588
1591instance decodeJsonBackend :: DecodeJson Backend where 1589instance decodeJsonBackend :: DecodeJson Backend where
1592 decodeJson json = do 1590 decodeJson json = do
@@ -1595,7 +1593,6 @@ instance decodeJsonBackend :: DecodeJson Backend where
1595 case tag of 1593 case tag of
1596 "WebGL1" -> pure WebGL1 1594 "WebGL1" -> pure WebGL1
1597 "OpenGL33" -> pure OpenGL33 1595 "OpenGL33" -> pure OpenGL33
1598 "DirectX11" -> pure DirectX11
1599 _ -> unsafeCrashWith "decodeJson @ Backend" 1596 _ -> unsafeCrashWith "decodeJson @ Backend"
1600 1597
1601instance encodeJsonPipeline :: EncodeJson Pipeline where 1598instance encodeJsonPipeline :: EncodeJson Pipeline where