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, 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 #-}
5module LambdaCube.IR where 5module LambdaCube.IR where
@@ -480,7 +480,6 @@ data RenderTarget
480data Backend 480data Backend
481 = WebGL1 481 = WebGL1
482 | OpenGL33 482 | OpenGL33
483 | DirectX11
484 deriving (Show, Eq, Ord) 483 deriving (Show, Eq, Ord)
485 484
486data Pipeline 485data 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
1565instance FromJSON Backend where 1563instance 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
1574instance ToJSON Pipeline where 1571instance ToJSON Pipeline where