diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-11 12:18:11 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-11 12:18:11 +0100 |
commit | 7cf18cd9f42bc825e61a9d5495b454b080402885 (patch) | |
tree | 4a40b1ee241a8a3493967916a3eaa0a77ec7b19b /ddl/out/LambdaCube.IR.purs | |
parent | ea7ec090f93060a6384e769b27cc8c0d04e22acc (diff) |
back to IR 0.3
Diffstat (limited to 'ddl/out/LambdaCube.IR.purs')
-rw-r--r-- | ddl/out/LambdaCube.IR.purs | 5 |
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 | ||
4 | module LambdaCube.IR where | 4 | module LambdaCube.IR where |
5 | import Prelude | 5 | import Prelude |
@@ -441,7 +441,6 @@ data RenderTarget | |||
441 | data Backend | 441 | data Backend |
442 | = WebGL1 | 442 | = WebGL1 |
443 | | OpenGL33 | 443 | | OpenGL33 |
444 | | DirectX11 | ||
445 | 444 | ||
446 | data Pipeline | 445 | data 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 | ||
1591 | instance decodeJsonBackend :: DecodeJson Backend where | 1589 | instance 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 | ||
1601 | instance encodeJsonPipeline :: EncodeJson Pipeline where | 1598 | instance encodeJsonPipeline :: EncodeJson Pipeline where |