diff options
Diffstat (limited to 'ddl/out/LambdaCube.IR.hs')
-rw-r--r-- | ddl/out/LambdaCube.IR.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ddl/out/LambdaCube.IR.hs b/ddl/out/LambdaCube.IR.hs index 3e441d5..25eba87 100644 --- a/ddl/out/LambdaCube.IR.hs +++ b/ddl/out/LambdaCube.IR.hs | |||
@@ -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 | {-# LANGUAGE OverloadedStrings, RecordWildCards #-} | 4 | {-# LANGUAGE OverloadedStrings, RecordWildCards #-} |
5 | module LambdaCube.IR where | 5 | module LambdaCube.IR where |
@@ -480,7 +480,6 @@ data RenderTarget | |||
480 | data Backend | 480 | data Backend |
481 | = WebGL1 | 481 | = WebGL1 |
482 | | OpenGL33 | 482 | | OpenGL33 |
483 | | DirectX11 | ||
484 | deriving (Show, Eq, Ord) | 483 | deriving (Show, Eq, Ord) |
485 | 484 | ||
486 | data Pipeline | 485 | data Pipeline |
@@ -1560,7 +1559,6 @@ instance ToJSON Backend where | |||
1560 | toJSON v = case v of | 1559 | toJSON v = case v of |
1561 | WebGL1 -> object [ "tag" .= ("WebGL1" :: Text)] | 1560 | WebGL1 -> object [ "tag" .= ("WebGL1" :: Text)] |
1562 | OpenGL33 -> object [ "tag" .= ("OpenGL33" :: Text)] | 1561 | OpenGL33 -> object [ "tag" .= ("OpenGL33" :: Text)] |
1563 | DirectX11 -> object [ "tag" .= ("DirectX11" :: Text)] | ||
1564 | 1562 | ||
1565 | instance FromJSON Backend where | 1563 | instance FromJSON Backend where |
1566 | parseJSON (Object obj) = do | 1564 | parseJSON (Object obj) = do |
@@ -1568,7 +1566,6 @@ instance FromJSON Backend where | |||
1568 | case tag :: Text of | 1566 | case tag :: Text of |
1569 | "WebGL1" -> pure WebGL1 | 1567 | "WebGL1" -> pure WebGL1 |
1570 | "OpenGL33" -> pure OpenGL33 | 1568 | "OpenGL33" -> pure OpenGL33 |
1571 | "DirectX11" -> pure DirectX11 | ||
1572 | parseJSON _ = mzero | 1569 | parseJSON _ = mzero |
1573 | 1570 | ||
1574 | instance ToJSON Pipeline where | 1571 | instance ToJSON Pipeline where |