From f4af737a0d4a1fd3b3c6babc2c119129df34f77d Mon Sep 17 00:00:00 2001 From: Péter Diviánszky Date: Thu, 15 Sep 2016 22:54:25 +0200 Subject: update dependencies & generate purescript code for psc v0.9.3 --- ddl/ddl.cabal | 9 ++-- ddl/out/LambdaCube.IR.cpp | 2 +- ddl/out/LambdaCube.IR.cs | 2 +- ddl/out/LambdaCube.IR.hpp | 2 +- ddl/out/LambdaCube.IR.hs | 2 +- ddl/out/LambdaCube.IR.purs | 54 ++++++++++++++++++++-- ddl/out/LambdaCube.IR.swift | 2 +- ddl/out/LambdaCube.IR2.hpp | 2 +- ddl/out/LambdaCube.Mesh.cpp | 2 +- ddl/out/LambdaCube.Mesh.cs | 2 +- ddl/out/LambdaCube.Mesh.hpp | 2 +- ddl/out/LambdaCube.Mesh.hs | 2 +- ddl/out/LambdaCube.Mesh.purs | 13 ++++-- ddl/out/LambdaCube.Mesh.swift | 2 +- ddl/out/LambdaCube.Mesh2.hpp | 2 +- ddl/out/LambdaCube.PipelineSchema.cpp | 2 +- ddl/out/LambdaCube.PipelineSchema.cs | 2 +- ddl/out/LambdaCube.PipelineSchema.hpp | 2 +- ddl/out/LambdaCube.PipelineSchema.hs | 2 +- ddl/out/LambdaCube.PipelineSchema.purs | 13 ++++-- ddl/out/LambdaCube.PipelineSchema.swift | 2 +- ddl/out/LambdaCube.PipelineSchema2.hpp | 2 +- ddl/out/LambdaCube.TypeInfo.cpp | 2 +- ddl/out/LambdaCube.TypeInfo.cs | 2 +- ddl/out/LambdaCube.TypeInfo.hpp | 2 +- ddl/out/LambdaCube.TypeInfo.hs | 2 +- ddl/out/LambdaCube.TypeInfo.purs | 13 ++++-- ddl/out/LambdaCube.TypeInfo.swift | 2 +- ddl/out/LambdaCube.TypeInfo2.hpp | 2 +- ddl/out/TestData.cpp | 2 +- ddl/out/TestData.cs | 2 +- ddl/out/TestData.hpp | 2 +- ddl/out/TestData.hs | 2 +- ddl/out/TestData.purs | 17 +++++-- ddl/out/TestData.swift | 2 +- ddl/out/TestData2.hpp | 2 +- .../java/LambdaCube/IR/AccumulationContext.java | 2 +- ddl/out/java/LambdaCube/IR/ArrayValue.java | 2 +- ddl/out/java/LambdaCube/IR/Backend.java | 2 +- ddl/out/java/LambdaCube/IR/BlendEquation.java | 2 +- ddl/out/java/LambdaCube/IR/Blending.java | 2 +- ddl/out/java/LambdaCube/IR/BlendingFactor.java | 2 +- ddl/out/java/LambdaCube/IR/ClearImage.java | 2 +- ddl/out/java/LambdaCube/IR/ColorArity.java | 2 +- ddl/out/java/LambdaCube/IR/Command.java | 2 +- ddl/out/java/LambdaCube/IR/ComparisonFunction.java | 2 +- ddl/out/java/LambdaCube/IR/CullMode.java | 2 +- ddl/out/java/LambdaCube/IR/EdgeMode.java | 2 +- ddl/out/java/LambdaCube/IR/FetchPrimitive.java | 2 +- ddl/out/java/LambdaCube/IR/Filter.java | 2 +- ddl/out/java/LambdaCube/IR/FragmentOperation.java | 2 +- ddl/out/java/LambdaCube/IR/FrontFace.java | 2 +- ddl/out/java/LambdaCube/IR/ImageRef.java | 2 +- ddl/out/java/LambdaCube/IR/ImageSemantic.java | 2 +- ddl/out/java/LambdaCube/IR/InputType.java | 2 +- ddl/out/java/LambdaCube/IR/JSON.java | 2 +- ddl/out/java/LambdaCube/IR/LogicOperation.java | 2 +- ddl/out/java/LambdaCube/IR/MipMap.java | 2 +- ddl/out/java/LambdaCube/IR/OutputPrimitive.java | 2 +- ddl/out/java/LambdaCube/IR/Parameter.java | 2 +- ddl/out/java/LambdaCube/IR/Pipeline.java | 2 +- ddl/out/java/LambdaCube/IR/PointSize.java | 2 +- .../java/LambdaCube/IR/PointSpriteCoordOrigin.java | 2 +- ddl/out/java/LambdaCube/IR/PolygonMode.java | 2 +- ddl/out/java/LambdaCube/IR/PolygonOffset.java | 2 +- ddl/out/java/LambdaCube/IR/Program.java | 2 +- ddl/out/java/LambdaCube/IR/ProvokingVertex.java | 2 +- ddl/out/java/LambdaCube/IR/RasterContext.java | 2 +- ddl/out/java/LambdaCube/IR/RenderTarget.java | 2 +- ddl/out/java/LambdaCube/IR/SamplerDescriptor.java | 2 +- ddl/out/java/LambdaCube/IR/Slot.java | 2 +- ddl/out/java/LambdaCube/IR/StencilOperation.java | 2 +- ddl/out/java/LambdaCube/IR/StencilOps.java | 2 +- ddl/out/java/LambdaCube/IR/StencilTest.java | 2 +- ddl/out/java/LambdaCube/IR/StencilTests.java | 2 +- ddl/out/java/LambdaCube/IR/StreamData.java | 2 +- ddl/out/java/LambdaCube/IR/TargetItem.java | 2 +- ddl/out/java/LambdaCube/IR/TextureDataType.java | 2 +- ddl/out/java/LambdaCube/IR/TextureDescriptor.java | 2 +- ddl/out/java/LambdaCube/IR/TextureType.java | 2 +- ddl/out/java/LambdaCube/IR/Value.java | 2 +- ddl/out/java/LambdaCube/Mesh/JSON.java | 2 +- ddl/out/java/LambdaCube/Mesh/Mesh.java | 2 +- ddl/out/java/LambdaCube/Mesh/MeshAttribute.java | 2 +- ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java | 2 +- ddl/out/java/LambdaCube/PipelineSchema/JSON.java | 2 +- .../PipelineSchema/ObjectArraySchema.java | 2 +- .../LambdaCube/PipelineSchema/PipelineSchema.java | 2 +- .../java/LambdaCube/PipelineSchema/StreamType.java | 2 +- .../java/LambdaCube/TypeInfo/CompileResult.java | 2 +- ddl/out/java/LambdaCube/TypeInfo/JSON.java | 2 +- ddl/out/java/LambdaCube/TypeInfo/Range.java | 2 +- ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java | 2 +- ddl/out/java/TestData/ClientInfo.java | 2 +- ddl/out/java/TestData/Frame.java | 2 +- ddl/out/java/TestData/FrameResult.java | 2 +- ddl/out/java/TestData/JSON.java | 2 +- ddl/out/java/TestData/PipelineInfo.java | 2 +- ddl/out/java/TestData/RenderJob.java | 2 +- ddl/out/java/TestData/RenderJobResult.java | 2 +- ddl/out/java/TestData/Scene.java | 2 +- ddl/templates/data.purs.ede | 11 +++-- lambdacube-ir.haskell/lambdacube-ir.cabal | 2 +- 103 files changed, 198 insertions(+), 124 deletions(-) diff --git a/ddl/ddl.cabal b/ddl/ddl.cabal index 2e4a210..5a59010 100644 --- a/ddl/ddl.cabal +++ b/ddl/ddl.cabal @@ -2,7 +2,7 @@ -- see http://haskell.org/cabal/users-guide/ name: ddl -version: 0.1.0.0 +version: 0.1.1.0 synopsis: data definition language with ADT support -- description: license: BSD3 @@ -20,14 +20,15 @@ executable ddl-generate other-modules: Language, Definitions other-extensions: RankNTypes, OverloadedStrings, DeriveGeneric, LambdaCase, FlexibleInstances build-depends: - base >=4.8 && <4.9 - , aeson >=0.9 && <0.10 + base >=4.8 && <4.10 + , aeson == 0.11.* , mtl >=2.2 && <2.3 , containers >=0.5 && <0.6 , text >=1.2 && <1.3 , unordered-containers >=0.2 && <0.3 , directory >=1.2 && <1.3 - , time >=1.5 && <1.6 + , time >=1.5 && <1.7 + , filepath >= 1.4 && <1.5 , ede -- hs-source-dirs: default-language: Haskell2010 diff --git a/ddl/out/LambdaCube.IR.cpp b/ddl/out/LambdaCube.IR.cpp index 6fd1c1d..9504b00 100644 --- a/ddl/out/LambdaCube.IR.cpp +++ b/ddl/out/LambdaCube.IR.cpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z #include "LambdaCube.IR.hpp" template<> json toJSON>(std::shared_ptr &v) { diff --git a/ddl/out/LambdaCube.IR.cs b/ddl/out/LambdaCube.IR.cs index 2ae4f62..1edf01f 100644 --- a/ddl/out/LambdaCube.IR.cs +++ b/ddl/out/LambdaCube.IR.cs @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z using System; using System.Linq; diff --git a/ddl/out/LambdaCube.IR.hpp b/ddl/out/LambdaCube.IR.hpp index 53d411e..f1c548b 100644 --- a/ddl/out/LambdaCube.IR.hpp +++ b/ddl/out/LambdaCube.IR.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z #ifndef HEADER_LambdaCube.IR_H #define HEADER_LambdaCube.IR_H diff --git a/ddl/out/LambdaCube.IR.hs b/ddl/out/LambdaCube.IR.hs index cb22f67..a69131c 100644 --- a/ddl/out/LambdaCube.IR.hs +++ b/ddl/out/LambdaCube.IR.hs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:34.381854000000Z +-- 2016-09-15T19:44:47.624123918Z {-# LANGUAGE OverloadedStrings, RecordWildCards #-} module LambdaCube.IR where 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" diff --git a/ddl/out/LambdaCube.IR.swift b/ddl/out/LambdaCube.IR.swift index f2c4fb9..9c4063d 100644 --- a/ddl/out/LambdaCube.IR.swift +++ b/ddl/out/LambdaCube.IR.swift @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z typealias StreamName = Int diff --git a/ddl/out/LambdaCube.IR2.hpp b/ddl/out/LambdaCube.IR2.hpp index d56a99a..2acaffa 100644 --- a/ddl/out/LambdaCube.IR2.hpp +++ b/ddl/out/LambdaCube.IR2.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z #ifndef HEADER_LambdaCube.IR_H #define HEADER_LambdaCube.IR_H diff --git a/ddl/out/LambdaCube.Mesh.cpp b/ddl/out/LambdaCube.Mesh.cpp index b5f889c..12ed2d5 100644 --- a/ddl/out/LambdaCube.Mesh.cpp +++ b/ddl/out/LambdaCube.Mesh.cpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z #include "LambdaCube.Mesh.hpp" template<> json toJSON>(std::shared_ptr &v) { diff --git a/ddl/out/LambdaCube.Mesh.cs b/ddl/out/LambdaCube.Mesh.cs index dd9ae75..c535e9e 100644 --- a/ddl/out/LambdaCube.Mesh.cs +++ b/ddl/out/LambdaCube.Mesh.cs @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z using System; using System.Linq; diff --git a/ddl/out/LambdaCube.Mesh.hpp b/ddl/out/LambdaCube.Mesh.hpp index bc88710..d2671ef 100644 --- a/ddl/out/LambdaCube.Mesh.hpp +++ b/ddl/out/LambdaCube.Mesh.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z #ifndef HEADER_LambdaCube.Mesh_H #define HEADER_LambdaCube.Mesh_H diff --git a/ddl/out/LambdaCube.Mesh.hs b/ddl/out/LambdaCube.Mesh.hs index 722cbd3..bc49bb0 100644 --- a/ddl/out/LambdaCube.Mesh.hs +++ b/ddl/out/LambdaCube.Mesh.hs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.222504000000Z +-- 2016-09-15T19:44:48.078244539Z {-# LANGUAGE OverloadedStrings, RecordWildCards #-} module LambdaCube.Mesh where diff --git a/ddl/out/LambdaCube.Mesh.purs b/ddl/out/LambdaCube.Mesh.purs index 7919fa7..696cdb3 100644 --- a/ddl/out/LambdaCube.Mesh.purs +++ b/ddl/out/LambdaCube.Mesh.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.222504000000Z +-- 2016-09-15T19:44:48.078244539Z module LambdaCube.Mesh 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) data MeshAttribute @@ -70,6 +72,7 @@ instance decodeJsonMeshAttribute :: DecodeJson MeshAttribute where "A_M44F" -> A_M44F <$> obj .? "arg0" "A_Int" -> A_Int <$> obj .? "arg0" "A_Word" -> A_Word <$> obj .? "arg0" + _ -> unsafeCrashWith "decodeJson @ MeshAttribute" instance encodeJsonMeshPrimitive :: EncodeJson MeshPrimitive where encodeJson v = case v of @@ -89,6 +92,7 @@ instance decodeJsonMeshPrimitive :: DecodeJson MeshPrimitive where "P_Triangles" -> pure P_Triangles "P_TriangleStripI" -> P_TriangleStripI <$> obj .? "arg0" "P_TrianglesI" -> P_TrianglesI <$> obj .? "arg0" + _ -> unsafeCrashWith "decodeJson @ MeshPrimitive" instance encodeJsonMesh :: EncodeJson Mesh where encodeJson v = case v of @@ -110,4 +114,5 @@ instance decodeJsonMesh :: DecodeJson Mesh where { mAttributes:mAttributes , mPrimitive:mPrimitive } + _ -> unsafeCrashWith "decodeJson @ Mesh" diff --git a/ddl/out/LambdaCube.Mesh.swift b/ddl/out/LambdaCube.Mesh.swift index 4fef6d0..d54e9f0 100644 --- a/ddl/out/LambdaCube.Mesh.swift +++ b/ddl/out/LambdaCube.Mesh.swift @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z enum MeshAttribute { case A_Float(Array) diff --git a/ddl/out/LambdaCube.Mesh2.hpp b/ddl/out/LambdaCube.Mesh2.hpp index 55190e8..9ad0e46 100644 --- a/ddl/out/LambdaCube.Mesh2.hpp +++ b/ddl/out/LambdaCube.Mesh2.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z #ifndef HEADER_LambdaCube.Mesh_H #define HEADER_LambdaCube.Mesh_H diff --git a/ddl/out/LambdaCube.PipelineSchema.cpp b/ddl/out/LambdaCube.PipelineSchema.cpp index a655981..857c910 100644 --- a/ddl/out/LambdaCube.PipelineSchema.cpp +++ b/ddl/out/LambdaCube.PipelineSchema.cpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z #include "LambdaCube.PipelineSchema.hpp" template<> json toJSON>(std::shared_ptr &v) { diff --git a/ddl/out/LambdaCube.PipelineSchema.cs b/ddl/out/LambdaCube.PipelineSchema.cs index a089a85..c75d548 100644 --- a/ddl/out/LambdaCube.PipelineSchema.cs +++ b/ddl/out/LambdaCube.PipelineSchema.cs @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z using System; using System.Linq; diff --git a/ddl/out/LambdaCube.PipelineSchema.hpp b/ddl/out/LambdaCube.PipelineSchema.hpp index fc24770..2242eb4 100644 --- a/ddl/out/LambdaCube.PipelineSchema.hpp +++ b/ddl/out/LambdaCube.PipelineSchema.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z #ifndef HEADER_LambdaCube.PipelineSchema_H #define HEADER_LambdaCube.PipelineSchema_H diff --git a/ddl/out/LambdaCube.PipelineSchema.hs b/ddl/out/LambdaCube.PipelineSchema.hs index 1a5178b..ef3c40d 100644 --- a/ddl/out/LambdaCube.PipelineSchema.hs +++ b/ddl/out/LambdaCube.PipelineSchema.hs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.172905000000Z +-- 2016-09-15T19:44:48.052942639Z {-# LANGUAGE OverloadedStrings, RecordWildCards #-} module LambdaCube.PipelineSchema where diff --git a/ddl/out/LambdaCube.PipelineSchema.purs b/ddl/out/LambdaCube.PipelineSchema.purs index 315cc31..167193e 100644 --- a/ddl/out/LambdaCube.PipelineSchema.purs +++ b/ddl/out/LambdaCube.PipelineSchema.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.172905000000Z +-- 2016-09-15T19:44:48.052942639Z module LambdaCube.PipelineSchema 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) import LambdaCube.IR @@ -107,6 +109,7 @@ instance decodeJsonStreamType :: DecodeJson StreamType where "Attribute_M42F" -> pure Attribute_M42F "Attribute_M43F" -> pure Attribute_M43F "Attribute_M44F" -> pure Attribute_M44F + _ -> unsafeCrashWith "decodeJson @ StreamType" instance encodeJsonObjectArraySchema :: EncodeJson ObjectArraySchema where encodeJson v = case v of @@ -128,6 +131,7 @@ instance decodeJsonObjectArraySchema :: DecodeJson ObjectArraySchema where { primitive:primitive , attributes:attributes } + _ -> unsafeCrashWith "decodeJson @ ObjectArraySchema" instance encodeJsonPipelineSchema :: EncodeJson PipelineSchema where encodeJson v = case v of @@ -149,4 +153,5 @@ instance decodeJsonPipelineSchema :: DecodeJson PipelineSchema where { objectArrays:objectArrays , uniforms:uniforms } + _ -> unsafeCrashWith "decodeJson @ PipelineSchema" diff --git a/ddl/out/LambdaCube.PipelineSchema.swift b/ddl/out/LambdaCube.PipelineSchema.swift index 7ce6ac6..36575bc 100644 --- a/ddl/out/LambdaCube.PipelineSchema.swift +++ b/ddl/out/LambdaCube.PipelineSchema.swift @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z enum StreamType { case Attribute_Word diff --git a/ddl/out/LambdaCube.PipelineSchema2.hpp b/ddl/out/LambdaCube.PipelineSchema2.hpp index cb6b0f6..2ace7d9 100644 --- a/ddl/out/LambdaCube.PipelineSchema2.hpp +++ b/ddl/out/LambdaCube.PipelineSchema2.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z #ifndef HEADER_LambdaCube.PipelineSchema_H #define HEADER_LambdaCube.PipelineSchema_H diff --git a/ddl/out/LambdaCube.TypeInfo.cpp b/ddl/out/LambdaCube.TypeInfo.cpp index 291d823..51c897d 100644 --- a/ddl/out/LambdaCube.TypeInfo.cpp +++ b/ddl/out/LambdaCube.TypeInfo.cpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z #include "LambdaCube.TypeInfo.hpp" template<> json toJSON>(std::shared_ptr &v) { diff --git a/ddl/out/LambdaCube.TypeInfo.cs b/ddl/out/LambdaCube.TypeInfo.cs index 6ba57c6..f0a6253 100644 --- a/ddl/out/LambdaCube.TypeInfo.cs +++ b/ddl/out/LambdaCube.TypeInfo.cs @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z using System; using System.Linq; diff --git a/ddl/out/LambdaCube.TypeInfo.hpp b/ddl/out/LambdaCube.TypeInfo.hpp index fbe45f6..28bc52f 100644 --- a/ddl/out/LambdaCube.TypeInfo.hpp +++ b/ddl/out/LambdaCube.TypeInfo.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z #ifndef HEADER_LambdaCube.TypeInfo_H #define HEADER_LambdaCube.TypeInfo_H diff --git a/ddl/out/LambdaCube.TypeInfo.hs b/ddl/out/LambdaCube.TypeInfo.hs index 9629231..03346b6 100644 --- a/ddl/out/LambdaCube.TypeInfo.hs +++ b/ddl/out/LambdaCube.TypeInfo.hs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.327304000000Z +-- 2016-09-15T19:44:48.120020034Z {-# LANGUAGE OverloadedStrings, RecordWildCards #-} module LambdaCube.TypeInfo where diff --git a/ddl/out/LambdaCube.TypeInfo.purs b/ddl/out/LambdaCube.TypeInfo.purs index 2e357af..eee3d0c 100644 --- a/ddl/out/LambdaCube.TypeInfo.purs +++ b/ddl/out/LambdaCube.TypeInfo.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.327304000000Z +-- 2016-09-15T19:44:48.120020034Z module LambdaCube.TypeInfo 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) import LambdaCube.IR @@ -66,6 +68,7 @@ instance decodeJsonRange :: DecodeJson Range where , endLine:endLine , endColumn:endColumn } + _ -> unsafeCrashWith "decodeJson @ Range" instance encodeJsonTypeInfo :: EncodeJson TypeInfo where encodeJson v = case v of @@ -87,6 +90,7 @@ instance decodeJsonTypeInfo :: DecodeJson TypeInfo where { range:range , text:text } + _ -> unsafeCrashWith "decodeJson @ TypeInfo" instance encodeJsonCompileResult :: EncodeJson CompileResult where encodeJson v = case v of @@ -100,4 +104,5 @@ instance decodeJsonCompileResult :: DecodeJson CompileResult where case tag of "CompileError" -> CompileError <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" "Compiled" -> Compiled <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" <*> obj .? "arg3" + _ -> unsafeCrashWith "decodeJson @ CompileResult" diff --git a/ddl/out/LambdaCube.TypeInfo.swift b/ddl/out/LambdaCube.TypeInfo.swift index 378c534..9304b97 100644 --- a/ddl/out/LambdaCube.TypeInfo.swift +++ b/ddl/out/LambdaCube.TypeInfo.swift @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z enum Range { case Range(Range_Data) diff --git a/ddl/out/LambdaCube.TypeInfo2.hpp b/ddl/out/LambdaCube.TypeInfo2.hpp index ec91fc1..ba80ca0 100644 --- a/ddl/out/LambdaCube.TypeInfo2.hpp +++ b/ddl/out/LambdaCube.TypeInfo2.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z #ifndef HEADER_LambdaCube.TypeInfo_H #define HEADER_LambdaCube.TypeInfo_H diff --git a/ddl/out/TestData.cpp b/ddl/out/TestData.cpp index dbf2a6b..6a686a9 100644 --- a/ddl/out/TestData.cpp +++ b/ddl/out/TestData.cpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z #include "TestData.hpp" template<> json toJSON>(std::shared_ptr &v) { diff --git a/ddl/out/TestData.cs b/ddl/out/TestData.cs index f8fc336..3c4b2bf 100644 --- a/ddl/out/TestData.cs +++ b/ddl/out/TestData.cs @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z using System; using System.Linq; diff --git a/ddl/out/TestData.hpp b/ddl/out/TestData.hpp index d8ed663..c66e828 100644 --- a/ddl/out/TestData.hpp +++ b/ddl/out/TestData.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z #ifndef HEADER_TestData_H #define HEADER_TestData_H diff --git a/ddl/out/TestData.hs b/ddl/out/TestData.hs index 97642bc..e2a85a3 100644 --- a/ddl/out/TestData.hs +++ b/ddl/out/TestData.hs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.381981000000Z +-- 2016-09-15T19:44:48.147167874Z {-# LANGUAGE OverloadedStrings, RecordWildCards #-} module TestData where diff --git a/ddl/out/TestData.purs b/ddl/out/TestData.purs index b30d329..2ac59b8 100644 --- a/ddl/out/TestData.purs +++ b/ddl/out/TestData.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-04-01T16:25:35.381981000000Z +-- 2016-09-15T19:44:48.147167874Z module TestData 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) import LambdaCube.IR import LambdaCube.Mesh @@ -95,6 +97,7 @@ instance decodeJsonClientInfo :: DecodeJson ClientInfo where { clientName:clientName , clientBackend:clientBackend } + _ -> unsafeCrashWith "decodeJson @ ClientInfo" instance encodeJsonFrame :: EncodeJson Frame where encodeJson v = case v of @@ -119,6 +122,7 @@ instance decodeJsonFrame :: DecodeJson Frame where , frameUniforms:frameUniforms , frameTextures:frameTextures } + _ -> unsafeCrashWith "decodeJson @ Frame" instance encodeJsonScene :: EncodeJson Scene where encodeJson v = case v of @@ -146,6 +150,7 @@ instance decodeJsonScene :: DecodeJson Scene where , renderTargetHeight:renderTargetHeight , frames:frames } + _ -> unsafeCrashWith "decodeJson @ Scene" instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where encodeJson v = case v of @@ -167,6 +172,7 @@ instance decodeJsonPipelineInfo :: DecodeJson PipelineInfo where { pipelineName:pipelineName , pipeline:pipeline } + _ -> unsafeCrashWith "decodeJson @ PipelineInfo" instance encodeJsonRenderJob :: EncodeJson RenderJob where encodeJson v = case v of @@ -197,6 +203,7 @@ instance decodeJsonRenderJob :: DecodeJson RenderJob where , scenes:scenes , pipelines:pipelines } + _ -> unsafeCrashWith "decodeJson @ RenderJob" instance encodeJsonFrameResult :: EncodeJson FrameResult where encodeJson v = case v of @@ -221,6 +228,7 @@ instance decodeJsonFrameResult :: DecodeJson FrameResult where , frImageWidth:frImageWidth , frImageHeight:frImageHeight } + _ -> unsafeCrashWith "decodeJson @ FrameResult" instance encodeJsonRenderJobResult :: EncodeJson RenderJobResult where encodeJson v = case v of @@ -234,4 +242,5 @@ instance decodeJsonRenderJobResult :: DecodeJson RenderJobResult where case tag of "RenderJobResult" -> RenderJobResult <$> obj .? "arg0" "RenderJobError" -> RenderJobError <$> obj .? "arg0" + _ -> unsafeCrashWith "decodeJson @ RenderJobResult" diff --git a/ddl/out/TestData.swift b/ddl/out/TestData.swift index 6b33b59..3fe771a 100644 --- a/ddl/out/TestData.swift +++ b/ddl/out/TestData.swift @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z enum ClientInfo { case ClientInfo(ClientInfo_Data) diff --git a/ddl/out/TestData2.hpp b/ddl/out/TestData2.hpp index 2cc8089..d39d5fa 100644 --- a/ddl/out/TestData2.hpp +++ b/ddl/out/TestData2.hpp @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z #ifndef HEADER_TestData_H #define HEADER_TestData_H diff --git a/ddl/out/java/LambdaCube/IR/AccumulationContext.java b/ddl/out/java/LambdaCube/IR/AccumulationContext.java index 22d1e22..5f788e2 100644 --- a/ddl/out/java/LambdaCube/IR/AccumulationContext.java +++ b/ddl/out/java/LambdaCube/IR/AccumulationContext.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ArrayValue.java b/ddl/out/java/LambdaCube/IR/ArrayValue.java index 5c607e5..d21bd4f 100644 --- a/ddl/out/java/LambdaCube/IR/ArrayValue.java +++ b/ddl/out/java/LambdaCube/IR/ArrayValue.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Backend.java b/ddl/out/java/LambdaCube/IR/Backend.java index b938596..513f8c0 100644 --- a/ddl/out/java/LambdaCube/IR/Backend.java +++ b/ddl/out/java/LambdaCube/IR/Backend.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/BlendEquation.java b/ddl/out/java/LambdaCube/IR/BlendEquation.java index d846193..3f9ee93 100644 --- a/ddl/out/java/LambdaCube/IR/BlendEquation.java +++ b/ddl/out/java/LambdaCube/IR/BlendEquation.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Blending.java b/ddl/out/java/LambdaCube/IR/Blending.java index 57d4e27..aee35f5 100644 --- a/ddl/out/java/LambdaCube/IR/Blending.java +++ b/ddl/out/java/LambdaCube/IR/Blending.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/BlendingFactor.java b/ddl/out/java/LambdaCube/IR/BlendingFactor.java index 86b6360..d7bdefb 100644 --- a/ddl/out/java/LambdaCube/IR/BlendingFactor.java +++ b/ddl/out/java/LambdaCube/IR/BlendingFactor.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ClearImage.java b/ddl/out/java/LambdaCube/IR/ClearImage.java index 7c9579b..d3a55e0 100644 --- a/ddl/out/java/LambdaCube/IR/ClearImage.java +++ b/ddl/out/java/LambdaCube/IR/ClearImage.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ColorArity.java b/ddl/out/java/LambdaCube/IR/ColorArity.java index 4566db2..be2380b 100644 --- a/ddl/out/java/LambdaCube/IR/ColorArity.java +++ b/ddl/out/java/LambdaCube/IR/ColorArity.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Command.java b/ddl/out/java/LambdaCube/IR/Command.java index b073a1b..7a3947a 100644 --- a/ddl/out/java/LambdaCube/IR/Command.java +++ b/ddl/out/java/LambdaCube/IR/Command.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ComparisonFunction.java b/ddl/out/java/LambdaCube/IR/ComparisonFunction.java index be3bfbe..6040a6a 100644 --- a/ddl/out/java/LambdaCube/IR/ComparisonFunction.java +++ b/ddl/out/java/LambdaCube/IR/ComparisonFunction.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/CullMode.java b/ddl/out/java/LambdaCube/IR/CullMode.java index 711057d..ac060b7 100644 --- a/ddl/out/java/LambdaCube/IR/CullMode.java +++ b/ddl/out/java/LambdaCube/IR/CullMode.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/EdgeMode.java b/ddl/out/java/LambdaCube/IR/EdgeMode.java index dc1112b..40418c1 100644 --- a/ddl/out/java/LambdaCube/IR/EdgeMode.java +++ b/ddl/out/java/LambdaCube/IR/EdgeMode.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/FetchPrimitive.java b/ddl/out/java/LambdaCube/IR/FetchPrimitive.java index c078d9a..d7fc693 100644 --- a/ddl/out/java/LambdaCube/IR/FetchPrimitive.java +++ b/ddl/out/java/LambdaCube/IR/FetchPrimitive.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Filter.java b/ddl/out/java/LambdaCube/IR/Filter.java index b532891..2333f6b 100644 --- a/ddl/out/java/LambdaCube/IR/Filter.java +++ b/ddl/out/java/LambdaCube/IR/Filter.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/FragmentOperation.java b/ddl/out/java/LambdaCube/IR/FragmentOperation.java index 961659c..885e2be 100644 --- a/ddl/out/java/LambdaCube/IR/FragmentOperation.java +++ b/ddl/out/java/LambdaCube/IR/FragmentOperation.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/FrontFace.java b/ddl/out/java/LambdaCube/IR/FrontFace.java index 6fea9cd..da9347b 100644 --- a/ddl/out/java/LambdaCube/IR/FrontFace.java +++ b/ddl/out/java/LambdaCube/IR/FrontFace.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ImageRef.java b/ddl/out/java/LambdaCube/IR/ImageRef.java index 33978e2..0173d9c 100644 --- a/ddl/out/java/LambdaCube/IR/ImageRef.java +++ b/ddl/out/java/LambdaCube/IR/ImageRef.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ImageSemantic.java b/ddl/out/java/LambdaCube/IR/ImageSemantic.java index 595d17e..4706288 100644 --- a/ddl/out/java/LambdaCube/IR/ImageSemantic.java +++ b/ddl/out/java/LambdaCube/IR/ImageSemantic.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/InputType.java b/ddl/out/java/LambdaCube/IR/InputType.java index 423453e..f66a1d5 100644 --- a/ddl/out/java/LambdaCube/IR/InputType.java +++ b/ddl/out/java/LambdaCube/IR/InputType.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/JSON.java b/ddl/out/java/LambdaCube/IR/JSON.java index d3d5e4e..89ec1ef 100644 --- a/ddl/out/java/LambdaCube/IR/JSON.java +++ b/ddl/out/java/LambdaCube/IR/JSON.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/LogicOperation.java b/ddl/out/java/LambdaCube/IR/LogicOperation.java index 505aa61..568c08c 100644 --- a/ddl/out/java/LambdaCube/IR/LogicOperation.java +++ b/ddl/out/java/LambdaCube/IR/LogicOperation.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/MipMap.java b/ddl/out/java/LambdaCube/IR/MipMap.java index 03469f6..24be83e 100644 --- a/ddl/out/java/LambdaCube/IR/MipMap.java +++ b/ddl/out/java/LambdaCube/IR/MipMap.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/OutputPrimitive.java b/ddl/out/java/LambdaCube/IR/OutputPrimitive.java index 710e612..d5f88d2 100644 --- a/ddl/out/java/LambdaCube/IR/OutputPrimitive.java +++ b/ddl/out/java/LambdaCube/IR/OutputPrimitive.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Parameter.java b/ddl/out/java/LambdaCube/IR/Parameter.java index e1aa0e1..6a74e24 100644 --- a/ddl/out/java/LambdaCube/IR/Parameter.java +++ b/ddl/out/java/LambdaCube/IR/Parameter.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Pipeline.java b/ddl/out/java/LambdaCube/IR/Pipeline.java index ee00e23..e0c06ba 100644 --- a/ddl/out/java/LambdaCube/IR/Pipeline.java +++ b/ddl/out/java/LambdaCube/IR/Pipeline.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/PointSize.java b/ddl/out/java/LambdaCube/IR/PointSize.java index d7c8551..2231d43 100644 --- a/ddl/out/java/LambdaCube/IR/PointSize.java +++ b/ddl/out/java/LambdaCube/IR/PointSize.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java b/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java index 28d408a..b4983f5 100644 --- a/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java +++ b/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/PolygonMode.java b/ddl/out/java/LambdaCube/IR/PolygonMode.java index 504604d..e341e7f 100644 --- a/ddl/out/java/LambdaCube/IR/PolygonMode.java +++ b/ddl/out/java/LambdaCube/IR/PolygonMode.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/PolygonOffset.java b/ddl/out/java/LambdaCube/IR/PolygonOffset.java index 4e66be8..4a7d12d 100644 --- a/ddl/out/java/LambdaCube/IR/PolygonOffset.java +++ b/ddl/out/java/LambdaCube/IR/PolygonOffset.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Program.java b/ddl/out/java/LambdaCube/IR/Program.java index 680e8be..b64d543 100644 --- a/ddl/out/java/LambdaCube/IR/Program.java +++ b/ddl/out/java/LambdaCube/IR/Program.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/ProvokingVertex.java b/ddl/out/java/LambdaCube/IR/ProvokingVertex.java index 9224932..946cb1a 100644 --- a/ddl/out/java/LambdaCube/IR/ProvokingVertex.java +++ b/ddl/out/java/LambdaCube/IR/ProvokingVertex.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/RasterContext.java b/ddl/out/java/LambdaCube/IR/RasterContext.java index 3510d82..4a131cb 100644 --- a/ddl/out/java/LambdaCube/IR/RasterContext.java +++ b/ddl/out/java/LambdaCube/IR/RasterContext.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/RenderTarget.java b/ddl/out/java/LambdaCube/IR/RenderTarget.java index e6fa397..c2b4d78 100644 --- a/ddl/out/java/LambdaCube/IR/RenderTarget.java +++ b/ddl/out/java/LambdaCube/IR/RenderTarget.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java b/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java index 1bf46b0..4649eee 100644 --- a/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java +++ b/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Slot.java b/ddl/out/java/LambdaCube/IR/Slot.java index 462ec2a..a881be7 100644 --- a/ddl/out/java/LambdaCube/IR/Slot.java +++ b/ddl/out/java/LambdaCube/IR/Slot.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/StencilOperation.java b/ddl/out/java/LambdaCube/IR/StencilOperation.java index 974062a..1c270dd 100644 --- a/ddl/out/java/LambdaCube/IR/StencilOperation.java +++ b/ddl/out/java/LambdaCube/IR/StencilOperation.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/StencilOps.java b/ddl/out/java/LambdaCube/IR/StencilOps.java index fd2f166..8408016 100644 --- a/ddl/out/java/LambdaCube/IR/StencilOps.java +++ b/ddl/out/java/LambdaCube/IR/StencilOps.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/StencilTest.java b/ddl/out/java/LambdaCube/IR/StencilTest.java index 08c87a2..3adddc2 100644 --- a/ddl/out/java/LambdaCube/IR/StencilTest.java +++ b/ddl/out/java/LambdaCube/IR/StencilTest.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/StencilTests.java b/ddl/out/java/LambdaCube/IR/StencilTests.java index 8467dc8..e08a07f 100644 --- a/ddl/out/java/LambdaCube/IR/StencilTests.java +++ b/ddl/out/java/LambdaCube/IR/StencilTests.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/StreamData.java b/ddl/out/java/LambdaCube/IR/StreamData.java index cdee011..2e821a5 100644 --- a/ddl/out/java/LambdaCube/IR/StreamData.java +++ b/ddl/out/java/LambdaCube/IR/StreamData.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/TargetItem.java b/ddl/out/java/LambdaCube/IR/TargetItem.java index baa38dc..b602b56 100644 --- a/ddl/out/java/LambdaCube/IR/TargetItem.java +++ b/ddl/out/java/LambdaCube/IR/TargetItem.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/TextureDataType.java b/ddl/out/java/LambdaCube/IR/TextureDataType.java index b6b55d7..0d889d8 100644 --- a/ddl/out/java/LambdaCube/IR/TextureDataType.java +++ b/ddl/out/java/LambdaCube/IR/TextureDataType.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/TextureDescriptor.java b/ddl/out/java/LambdaCube/IR/TextureDescriptor.java index f2d6323..368e8f0 100644 --- a/ddl/out/java/LambdaCube/IR/TextureDescriptor.java +++ b/ddl/out/java/LambdaCube/IR/TextureDescriptor.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/TextureType.java b/ddl/out/java/LambdaCube/IR/TextureType.java index 7fa1d8f..451ad52 100644 --- a/ddl/out/java/LambdaCube/IR/TextureType.java +++ b/ddl/out/java/LambdaCube/IR/TextureType.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/IR/Value.java b/ddl/out/java/LambdaCube/IR/Value.java index 8d3e45d..294a4db 100644 --- a/ddl/out/java/LambdaCube/IR/Value.java +++ b/ddl/out/java/LambdaCube/IR/Value.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:34.381854000000Z +// 2016-09-15T19:44:47.624123918Z package LambdaCube.IR; diff --git a/ddl/out/java/LambdaCube/Mesh/JSON.java b/ddl/out/java/LambdaCube/Mesh/JSON.java index b19b4e2..a52ea1f 100644 --- a/ddl/out/java/LambdaCube/Mesh/JSON.java +++ b/ddl/out/java/LambdaCube/Mesh/JSON.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z package LambdaCube.Mesh; diff --git a/ddl/out/java/LambdaCube/Mesh/Mesh.java b/ddl/out/java/LambdaCube/Mesh/Mesh.java index db5fc0a..d5a649f 100644 --- a/ddl/out/java/LambdaCube/Mesh/Mesh.java +++ b/ddl/out/java/LambdaCube/Mesh/Mesh.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z package LambdaCube.Mesh; diff --git a/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java b/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java index a2982b3..68fa1bc 100644 --- a/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java +++ b/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z package LambdaCube.Mesh; diff --git a/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java b/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java index 909e9bd..116cf4a 100644 --- a/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java +++ b/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.222504000000Z +// 2016-09-15T19:44:48.078244539Z package LambdaCube.Mesh; diff --git a/ddl/out/java/LambdaCube/PipelineSchema/JSON.java b/ddl/out/java/LambdaCube/PipelineSchema/JSON.java index 7e06c4e..fd2a905 100644 --- a/ddl/out/java/LambdaCube/PipelineSchema/JSON.java +++ b/ddl/out/java/LambdaCube/PipelineSchema/JSON.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z package LambdaCube.PipelineSchema; diff --git a/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java b/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java index 13ff8c2..6ed3627 100644 --- a/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java +++ b/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z package LambdaCube.PipelineSchema; diff --git a/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java b/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java index 631b01c..39fb6eb 100644 --- a/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java +++ b/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z package LambdaCube.PipelineSchema; diff --git a/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java b/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java index 41cef93..debbb01 100644 --- a/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java +++ b/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.172905000000Z +// 2016-09-15T19:44:48.052942639Z package LambdaCube.PipelineSchema; diff --git a/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java b/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java index 36bba0d..91653b5 100644 --- a/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java +++ b/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z package LambdaCube.TypeInfo; diff --git a/ddl/out/java/LambdaCube/TypeInfo/JSON.java b/ddl/out/java/LambdaCube/TypeInfo/JSON.java index 6491702..e13fa63 100644 --- a/ddl/out/java/LambdaCube/TypeInfo/JSON.java +++ b/ddl/out/java/LambdaCube/TypeInfo/JSON.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z package LambdaCube.TypeInfo; diff --git a/ddl/out/java/LambdaCube/TypeInfo/Range.java b/ddl/out/java/LambdaCube/TypeInfo/Range.java index c5de275..8c63d75 100644 --- a/ddl/out/java/LambdaCube/TypeInfo/Range.java +++ b/ddl/out/java/LambdaCube/TypeInfo/Range.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z package LambdaCube.TypeInfo; diff --git a/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java b/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java index 2e966f7..8e86f07 100644 --- a/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java +++ b/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.327304000000Z +// 2016-09-15T19:44:48.120020034Z package LambdaCube.TypeInfo; diff --git a/ddl/out/java/TestData/ClientInfo.java b/ddl/out/java/TestData/ClientInfo.java index b2c4cf8..0b78ff0 100644 --- a/ddl/out/java/TestData/ClientInfo.java +++ b/ddl/out/java/TestData/ClientInfo.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/Frame.java b/ddl/out/java/TestData/Frame.java index b9a0d6a..1fe44d9 100644 --- a/ddl/out/java/TestData/Frame.java +++ b/ddl/out/java/TestData/Frame.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/FrameResult.java b/ddl/out/java/TestData/FrameResult.java index 45d3e9d..03f6eca 100644 --- a/ddl/out/java/TestData/FrameResult.java +++ b/ddl/out/java/TestData/FrameResult.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/JSON.java b/ddl/out/java/TestData/JSON.java index 61b5c21..ce9772c 100644 --- a/ddl/out/java/TestData/JSON.java +++ b/ddl/out/java/TestData/JSON.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/PipelineInfo.java b/ddl/out/java/TestData/PipelineInfo.java index 20033ce..4b0f537 100644 --- a/ddl/out/java/TestData/PipelineInfo.java +++ b/ddl/out/java/TestData/PipelineInfo.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/RenderJob.java b/ddl/out/java/TestData/RenderJob.java index 076ae55..dfcb76c 100644 --- a/ddl/out/java/TestData/RenderJob.java +++ b/ddl/out/java/TestData/RenderJob.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/RenderJobResult.java b/ddl/out/java/TestData/RenderJobResult.java index e04afa2..e9b0352 100644 --- a/ddl/out/java/TestData/RenderJobResult.java +++ b/ddl/out/java/TestData/RenderJobResult.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/out/java/TestData/Scene.java b/ddl/out/java/TestData/Scene.java index 363915a..1a37243 100644 --- a/ddl/out/java/TestData/Scene.java +++ b/ddl/out/java/TestData/Scene.java @@ -1,5 +1,5 @@ // generated file, do not modify! -// 2016-04-01T16:25:35.381981000000Z +// 2016-09-15T19:44:48.147167874Z package TestData; diff --git a/ddl/templates/data.purs.ede b/ddl/templates/data.purs.ede index 0474931..490050a 100644 --- a/ddl/templates/data.purs.ede +++ b/ddl/templates/data.purs.ede @@ -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) {% for m in imports %} import {{ m.value }} @@ -64,5 +66,6 @@ instance decodeJson{{ t.value.dataName }} :: DecodeJson {{ t.value.dataName }} w {% if f.first %}{ {% else %}, {%endif%}{{ f.value.fieldName }}:{{ f.value.fieldName }}{% endfor %} } {% else %} "{{ c.value.name }}" -> {% for f in c.value.fields %}{% if f.first %}{{ c.value.name }} <$>{% else %} <*>{% endif %} obj .? "arg{{ f.index0 }}"{%else%}pure {{ c.value.name }}{% endfor %}{% endif %}{% endfor %} + _ -> unsafeCrashWith "decodeJson @ {{ t.value.dataName }}" -{% endfor %} \ No newline at end of file +{% endfor %} diff --git a/lambdacube-ir.haskell/lambdacube-ir.cabal b/lambdacube-ir.haskell/lambdacube-ir.cabal index eef6c4d..97085e8 100644 --- a/lambdacube-ir.haskell/lambdacube-ir.cabal +++ b/lambdacube-ir.haskell/lambdacube-ir.cabal @@ -28,7 +28,7 @@ library containers >=0.5 && <0.6, vector >=0.11 && <0.12, text >=1.2 && <1.3, - aeson >=0.9 && <1, + aeson >=0.9 && <0.12, mtl >=2.2 && <2.3 hs-source-dirs: src default-language: Haskell2010 -- cgit v1.2.3