summaryrefslogtreecommitdiff
path: root/ddl/out/LambdaCube.IR.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ddl/out/LambdaCube.IR.hs')
-rw-r--r--ddl/out/LambdaCube.IR.hs5
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 #-}
5module LambdaCube.IR where 5module LambdaCube.IR where
@@ -480,6 +480,7 @@ data RenderTarget
480data Backend 480data Backend
481 = WebGL1 481 = WebGL1
482 | OpenGL33 482 | OpenGL33
483 | DirectX11
483 deriving (Show, Eq, Ord) 484 deriving (Show, Eq, Ord)
484 485
485data Pipeline 486data 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
1563instance FromJSON Backend where 1565instance 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
1571instance ToJSON Pipeline where 1574instance ToJSON Pipeline where