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