1 files changed, 50 insertions, 4 deletions

diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 8b2a76e..644bd3a 100644
--- a/ddl/out/LambdaCube.IR.purs
+++ b/ddl/out/LambdaCube.IR.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-04-01T16:25:34.381854000000Z
+-- 2016-09-15T19:44:47.624123918Z
 
 module LambdaCube.IR where
 import Prelude
@@ -10,11 +10,13 @@ import Data.Map (Map(..))
 import Data.List (List(..))
 import Linear
 
-import Data.Argonaut.Combinators ((~>), (:=), (.?))
+import Data.Argonaut.Encode.Combinators ((~>), (:=))
+import Data.Argonaut.Decode.Combinators ((.?))
 import Data.Argonaut.Core (jsonEmptyObject)
 import Data.Argonaut.Printer (printJson)
-import Data.Argonaut.Encode (EncodeJson, encodeJson)
-import Data.Argonaut.Decode (DecodeJson, decodeJson)
+import Data.Argonaut.Encode (class EncodeJson, encodeJson)
+import Data.Argonaut.Decode (class DecodeJson, decodeJson)
+import Partial.Unsafe (unsafeCrashWith)
 
 
 type StreamName = Int
@@ -497,6 +499,7 @@ instance decodeJsonArrayValue :: DecodeJson ArrayValue where
       "VIntArray" -> VIntArray <$> obj .? "arg0"
       "VWordArray" -> VWordArray <$> obj .? "arg0"
       "VFloatArray" -> VFloatArray <$> obj .? "arg0"
+      _ -> unsafeCrashWith "decodeJson @ ArrayValue"
 
 instance encodeJsonValue :: EncodeJson Value where
   encodeJson v = case v of
@@ -556,6 +559,7 @@ instance decodeJsonValue :: DecodeJson Value where
       "VM42F" -> VM42F <$> obj .? "arg0"
       "VM43F" -> VM43F <$> obj .? "arg0"
       "VM44F" -> VM44F <$> obj .? "arg0"
+      _ -> unsafeCrashWith "decodeJson @ Value"
 
 instance encodeJsonInputType :: EncodeJson InputType where
   encodeJson v = case v of
@@ -687,6 +691,7 @@ instance decodeJsonInputType :: DecodeJson InputType where
       "UTexture2DMSArray" -> pure UTexture2DMSArray
       "UTextureBuffer" -> pure UTextureBuffer
       "UTexture2DRect" -> pure UTexture2DRect
+      _ -> unsafeCrashWith "decodeJson @ InputType"
 
 instance encodeJsonPointSpriteCoordOrigin :: EncodeJson PointSpriteCoordOrigin where
   encodeJson v = case v of
@@ -700,6 +705,7 @@ instance decodeJsonPointSpriteCoordOrigin :: DecodeJson PointSpriteCoordOrigin w
     case tag of
       "LowerLeft" -> pure LowerLeft
       "UpperLeft" -> pure UpperLeft
+      _ -> unsafeCrashWith "decodeJson @ PointSpriteCoordOrigin"
 
 instance encodeJsonPointSize :: EncodeJson PointSize where
   encodeJson v = case v of
@@ -713,6 +719,7 @@ instance decodeJsonPointSize :: DecodeJson PointSize where
     case tag of
       "PointSize" -> PointSize <$> obj .? "arg0"
       "ProgramPointSize" -> pure ProgramPointSize
+      _ -> unsafeCrashWith "decodeJson @ PointSize"
 
 instance encodeJsonPolygonOffset :: EncodeJson PolygonOffset where
   encodeJson v = case v of
@@ -726,6 +733,7 @@ instance decodeJsonPolygonOffset :: DecodeJson PolygonOffset where
     case tag of
       "NoOffset" -> pure NoOffset
       "Offset" -> Offset <$> obj .? "arg0" <*> obj .? "arg1"
+      _ -> unsafeCrashWith "decodeJson @ PolygonOffset"
 
 instance encodeJsonFrontFace :: EncodeJson FrontFace where
   encodeJson v = case v of
@@ -739,6 +747,7 @@ instance decodeJsonFrontFace :: DecodeJson FrontFace where
     case tag of
       "CCW" -> pure CCW
       "CW" -> pure CW
+      _ -> unsafeCrashWith "decodeJson @ FrontFace"
 
 instance encodeJsonPolygonMode :: EncodeJson PolygonMode where
   encodeJson v = case v of
@@ -754,6 +763,7 @@ instance decodeJsonPolygonMode :: DecodeJson PolygonMode where
       "PolygonPoint" -> PolygonPoint <$> obj .? "arg0"
       "PolygonLine" -> PolygonLine <$> obj .? "arg0"
       "PolygonFill" -> pure PolygonFill
+      _ -> unsafeCrashWith "decodeJson @ PolygonMode"
 
 instance encodeJsonProvokingVertex :: EncodeJson ProvokingVertex where
   encodeJson v = case v of
@@ -767,6 +777,7 @@ instance decodeJsonProvokingVertex :: DecodeJson ProvokingVertex where
     case tag of
       "FirstVertex" -> pure FirstVertex
       "LastVertex" -> pure LastVertex
+      _ -> unsafeCrashWith "decodeJson @ ProvokingVertex"
 
 instance encodeJsonCullMode :: EncodeJson CullMode where
   encodeJson v = case v of
@@ -782,6 +793,7 @@ instance decodeJsonCullMode :: DecodeJson CullMode where
       "CullNone" -> pure CullNone
       "CullFront" -> CullFront <$> obj .? "arg0"
       "CullBack" -> CullBack <$> obj .? "arg0"
+      _ -> unsafeCrashWith "decodeJson @ CullMode"
 
 instance encodeJsonComparisonFunction :: EncodeJson ComparisonFunction where
   encodeJson v = case v of
@@ -807,6 +819,7 @@ instance decodeJsonComparisonFunction :: DecodeJson ComparisonFunction where
       "Notequal" -> pure Notequal
       "Gequal" -> pure Gequal
       "Always" -> pure Always
+      _ -> unsafeCrashWith "decodeJson @ ComparisonFunction"
 
 instance encodeJsonStencilOperation :: EncodeJson StencilOperation where
   encodeJson v = case v of
@@ -832,6 +845,7 @@ instance decodeJsonStencilOperation :: DecodeJson StencilOperation where
       "OpDecr" -> pure OpDecr
       "OpDecrWrap" -> pure OpDecrWrap
       "OpInvert" -> pure OpInvert
+      _ -> unsafeCrashWith "decodeJson @ StencilOperation"
 
 instance encodeJsonBlendEquation :: EncodeJson BlendEquation where
   encodeJson v = case v of
@@ -851,6 +865,7 @@ instance decodeJsonBlendEquation :: DecodeJson BlendEquation where
       "FuncReverseSubtract" -> pure FuncReverseSubtract
       "Min" -> pure Min
       "Max" -> pure Max
+      _ -> unsafeCrashWith "decodeJson @ BlendEquation"
 
 instance encodeJsonBlendingFactor :: EncodeJson BlendingFactor where
   encodeJson v = case v of
@@ -890,6 +905,7 @@ instance decodeJsonBlendingFactor :: DecodeJson BlendingFactor where
       "ConstantAlpha" -> pure ConstantAlpha
       "OneMinusConstantAlpha" -> pure OneMinusConstantAlpha
       "SrcAlphaSaturate" -> pure SrcAlphaSaturate
+      _ -> unsafeCrashWith "decodeJson @ BlendingFactor"
 
 instance encodeJsonLogicOperation :: EncodeJson LogicOperation where
   encodeJson v = case v of
@@ -931,6 +947,7 @@ instance decodeJsonLogicOperation :: DecodeJson LogicOperation where
       "OrInverted" -> pure OrInverted
       "Nand" -> pure Nand
       "Set" -> pure Set
+      _ -> unsafeCrashWith "decodeJson @ LogicOperation"
 
 instance encodeJsonStencilOps :: EncodeJson StencilOps where
   encodeJson v = case v of
@@ -952,6 +969,7 @@ instance decodeJsonStencilOps :: DecodeJson StencilOps where
           { frontStencilOp:frontStencilOp
           , backStencilOp:backStencilOp
           } 
+      _ -> unsafeCrashWith "decodeJson @ StencilOps"
 
 instance encodeJsonStencilTest :: EncodeJson StencilTest where
   encodeJson v = case v of
@@ -976,6 +994,7 @@ instance decodeJsonStencilTest :: DecodeJson StencilTest where
           , stencilReference:stencilReference
           , stencilMask:stencilMask
           } 
+      _ -> unsafeCrashWith "decodeJson @ StencilTest"
 
 instance encodeJsonStencilTests :: EncodeJson StencilTests where
   encodeJson v = case v of
@@ -987,6 +1006,7 @@ instance decodeJsonStencilTests :: DecodeJson StencilTests where
     tag <- obj .? "tag"
     case tag of
       "StencilTests" -> StencilTests <$> obj .? "arg0" <*> obj .? "arg1"
+      _ -> unsafeCrashWith "decodeJson @ StencilTests"
 
 instance encodeJsonFetchPrimitive :: EncodeJson FetchPrimitive where
   encodeJson v = case v of
@@ -1006,6 +1026,7 @@ instance decodeJsonFetchPrimitive :: DecodeJson FetchPrimitive where
       "Triangles" -> pure Triangles
       "LinesAdjacency" -> pure LinesAdjacency
       "TrianglesAdjacency" -> pure TrianglesAdjacency
+      _ -> unsafeCrashWith "decodeJson @ FetchPrimitive"
 
 instance encodeJsonOutputPrimitive :: EncodeJson OutputPrimitive where
   encodeJson v = case v of
@@ -1021,6 +1042,7 @@ instance decodeJsonOutputPrimitive :: DecodeJson OutputPrimitive where
       "TrianglesOutput" -> pure TrianglesOutput
       "LinesOutput" -> pure LinesOutput
       "PointsOutput" -> pure PointsOutput
+      _ -> unsafeCrashWith "decodeJson @ OutputPrimitive"
 
 instance encodeJsonColorArity :: EncodeJson ColorArity where
   encodeJson v = case v of
@@ -1038,6 +1060,7 @@ instance decodeJsonColorArity :: DecodeJson ColorArity where
       "RG" -> pure RG
       "RGB" -> pure RGB
       "RGBA" -> pure RGBA
+      _ -> unsafeCrashWith "decodeJson @ ColorArity"
 
 instance encodeJsonBlending :: EncodeJson Blending where
   encodeJson v = case v of
@@ -1078,6 +1101,7 @@ instance decodeJsonBlending :: DecodeJson Blending where
           , alphaFDst:alphaFDst
           , color:color
           } 
+      _ -> unsafeCrashWith "decodeJson @ Blending"
 
 instance encodeJsonRasterContext :: EncodeJson RasterContext where
   encodeJson v = case v of
@@ -1093,6 +1117,7 @@ instance decodeJsonRasterContext :: DecodeJson RasterContext where
       "PointCtx" -> PointCtx <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2"
       "LineCtx" -> LineCtx <$> obj .? "arg0" <*> obj .? "arg1"
       "TriangleCtx" -> TriangleCtx <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" <*> obj .? "arg3"
+      _ -> unsafeCrashWith "decodeJson @ RasterContext"
 
 instance encodeJsonFragmentOperation :: EncodeJson FragmentOperation where
   encodeJson v = case v of
@@ -1108,6 +1133,7 @@ instance decodeJsonFragmentOperation :: DecodeJson FragmentOperation where
       "DepthOp" -> DepthOp <$> obj .? "arg0" <*> obj .? "arg1"
       "StencilOp" -> StencilOp <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2"
       "ColorOp" -> ColorOp <$> obj .? "arg0" <*> obj .? "arg1"
+      _ -> unsafeCrashWith "decodeJson @ FragmentOperation"
 
 instance encodeJsonAccumulationContext :: EncodeJson AccumulationContext where
   encodeJson v = case v of
@@ -1129,6 +1155,7 @@ instance decodeJsonAccumulationContext :: DecodeJson AccumulationContext where
           { accViewportName:accViewportName
           , accOperations:accOperations
           } 
+      _ -> unsafeCrashWith "decodeJson @ AccumulationContext"
 
 instance encodeJsonTextureDataType :: EncodeJson TextureDataType where
   encodeJson v = case v of
@@ -1146,6 +1173,7 @@ instance decodeJsonTextureDataType :: DecodeJson TextureDataType where
       "IntT" -> IntT <$> obj .? "arg0"
       "WordT" -> WordT <$> obj .? "arg0"
       "ShadowT" -> pure ShadowT
+      _ -> unsafeCrashWith "decodeJson @ TextureDataType"
 
 instance encodeJsonTextureType :: EncodeJson TextureType where
   encodeJson v = case v of
@@ -1169,6 +1197,7 @@ instance decodeJsonTextureType :: DecodeJson TextureType where
       "TextureRect" -> TextureRect <$> obj .? "arg0"
       "Texture2DMS" -> Texture2DMS <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" <*> obj .? "arg3"
       "TextureBuffer" -> TextureBuffer <$> obj .? "arg0"
+      _ -> unsafeCrashWith "decodeJson @ TextureType"
 
 instance encodeJsonMipMap :: EncodeJson MipMap where
   encodeJson v = case v of
@@ -1184,6 +1213,7 @@ instance decodeJsonMipMap :: DecodeJson MipMap where
       "Mip" -> Mip <$> obj .? "arg0" <*> obj .? "arg1"
       "NoMip" -> pure NoMip
       "AutoMip" -> AutoMip <$> obj .? "arg0" <*> obj .? "arg1"
+      _ -> unsafeCrashWith "decodeJson @ MipMap"
 
 instance encodeJsonFilter :: EncodeJson Filter where
   encodeJson v = case v of
@@ -1205,6 +1235,7 @@ instance decodeJsonFilter :: DecodeJson Filter where
       "NearestMipmapLinear" -> pure NearestMipmapLinear
       "LinearMipmapNearest" -> pure LinearMipmapNearest
       "LinearMipmapLinear" -> pure LinearMipmapLinear
+      _ -> unsafeCrashWith "decodeJson @ Filter"
 
 instance encodeJsonEdgeMode :: EncodeJson EdgeMode where
   encodeJson v = case v of
@@ -1222,6 +1253,7 @@ instance decodeJsonEdgeMode :: DecodeJson EdgeMode where
       "MirroredRepeat" -> pure MirroredRepeat
       "ClampToEdge" -> pure ClampToEdge
       "ClampToBorder" -> pure ClampToBorder
+      _ -> unsafeCrashWith "decodeJson @ EdgeMode"
 
 instance encodeJsonImageSemantic :: EncodeJson ImageSemantic where
   encodeJson v = case v of
@@ -1237,6 +1269,7 @@ instance decodeJsonImageSemantic :: DecodeJson ImageSemantic where
       "Depth" -> pure Depth
       "Stencil" -> pure Stencil
       "Color" -> pure Color
+      _ -> unsafeCrashWith "decodeJson @ ImageSemantic"
 
 instance encodeJsonImageRef :: EncodeJson ImageRef where
   encodeJson v = case v of
@@ -1250,6 +1283,7 @@ instance decodeJsonImageRef :: DecodeJson ImageRef where
     case tag of
       "TextureImage" -> TextureImage <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2"
       "Framebuffer" -> Framebuffer <$> obj .? "arg0"
+      _ -> unsafeCrashWith "decodeJson @ ImageRef"
 
 instance encodeJsonClearImage :: EncodeJson ClearImage where
   encodeJson v = case v of
@@ -1271,6 +1305,7 @@ instance decodeJsonClearImage :: DecodeJson ClearImage where
           { imageSemantic:imageSemantic
           , clearValue:clearValue
           } 
+      _ -> unsafeCrashWith "decodeJson @ ClearImage"
 
 instance encodeJsonCommand :: EncodeJson Command where
   encodeJson v = case v of
@@ -1306,6 +1341,7 @@ instance decodeJsonCommand :: DecodeJson Command where
       "GenerateMipMap" -> GenerateMipMap <$> obj .? "arg0"
       "SaveImage" -> SaveImage <$> obj .? "arg0" <*> obj .? "arg1"
       "LoadImage" -> LoadImage <$> obj .? "arg0" <*> obj .? "arg1"
+      _ -> unsafeCrashWith "decodeJson @ Command"
 
 instance encodeJsonSamplerDescriptor :: EncodeJson SamplerDescriptor where
   encodeJson v = case v of
@@ -1351,6 +1387,7 @@ instance decodeJsonSamplerDescriptor :: DecodeJson SamplerDescriptor where
           , samplerLodBias:samplerLodBias
           , samplerCompareFunc:samplerCompareFunc
           } 
+      _ -> unsafeCrashWith "decodeJson @ SamplerDescriptor"
 
 instance encodeJsonTextureDescriptor :: EncodeJson TextureDescriptor where
   encodeJson v = case v of
@@ -1384,6 +1421,7 @@ instance decodeJsonTextureDescriptor :: DecodeJson TextureDescriptor where
           , textureBaseLevel:textureBaseLevel
           , textureMaxLevel:textureMaxLevel
           } 
+      _ -> unsafeCrashWith "decodeJson @ TextureDescriptor"
 
 instance encodeJsonParameter :: EncodeJson Parameter where
   encodeJson v = case v of
@@ -1405,6 +1443,7 @@ instance decodeJsonParameter :: DecodeJson Parameter where
           { name:name
           , ty:ty
           } 
+      _ -> unsafeCrashWith "decodeJson @ Parameter"
 
 instance encodeJsonProgram :: EncodeJson Program where
   encodeJson v = case v of
@@ -1441,6 +1480,7 @@ instance decodeJsonProgram :: DecodeJson Program where
           , geometryShader:geometryShader
           , fragmentShader:fragmentShader
           } 
+      _ -> unsafeCrashWith "decodeJson @ Program"
 
 instance encodeJsonSlot :: EncodeJson Slot where
   encodeJson v = case v of
@@ -1471,6 +1511,7 @@ instance decodeJsonSlot :: DecodeJson Slot where
           , slotPrimitive:slotPrimitive
           , slotPrograms:slotPrograms
           } 
+      _ -> unsafeCrashWith "decodeJson @ Slot"
 
 instance encodeJsonStreamData :: EncodeJson StreamData where
   encodeJson v = case v of
@@ -1498,6 +1539,7 @@ instance decodeJsonStreamData :: DecodeJson StreamData where
           , streamPrimitive:streamPrimitive
           , streamPrograms:streamPrograms
           } 
+      _ -> unsafeCrashWith "decodeJson @ StreamData"
 
 instance encodeJsonTargetItem :: EncodeJson TargetItem where
   encodeJson v = case v of
@@ -1519,6 +1561,7 @@ instance decodeJsonTargetItem :: DecodeJson TargetItem where
           { targetSemantic:targetSemantic
           , targetRef:targetRef
           } 
+      _ -> unsafeCrashWith "decodeJson @ TargetItem"
 
 instance encodeJsonRenderTarget :: EncodeJson RenderTarget where
   encodeJson v = case v of
@@ -1537,6 +1580,7 @@ instance decodeJsonRenderTarget :: DecodeJson RenderTarget where
         pure $ RenderTarget
           { renderTargets:renderTargets
           } 
+      _ -> unsafeCrashWith "decodeJson @ RenderTarget"
 
 instance encodeJsonBackend :: EncodeJson Backend where
   encodeJson v = case v of
@@ -1552,6 +1596,7 @@ instance decodeJsonBackend :: DecodeJson Backend where
       "WebGL1" -> pure WebGL1
       "OpenGL33" -> pure OpenGL33
       "DirectX11" -> pure DirectX11
+      _ -> unsafeCrashWith "decodeJson @ Backend"
 
 instance encodeJsonPipeline :: EncodeJson Pipeline where
   encodeJson v = case v of
@@ -1594,4 +1639,5 @@ instance decodeJsonPipeline :: DecodeJson Pipeline where
           , streams:streams
           , commands:commands
           } 
+      _ -> unsafeCrashWith "decodeJson @ Pipeline"