diff options
Diffstat (limited to 'ddl/out/TestData.purs')
-rw-r--r-- | ddl/out/TestData.purs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ddl/out/TestData.purs b/ddl/out/TestData.purs index 8254f2e..c8af32b 100644 --- a/ddl/out/TestData.purs +++ b/ddl/out/TestData.purs | |||
@@ -1,14 +1,15 @@ | |||
1 | -- generated file, do not modify! | 1 | -- generated file, do not modify! |
2 | -- 2016-11-11T11:17:03.685172000000Z | 2 | -- 2016-11-12T12:49:00.081060000000Z |
3 | 3 | ||
4 | module TestData where | 4 | module TestData where |
5 | import Prelude | 5 | import Prelude |
6 | import Data.Generic | 6 | import Data.Generic |
7 | import Data.Either (Either(..)) | ||
7 | import Data.Maybe (Maybe(..)) | 8 | import Data.Maybe (Maybe(..)) |
8 | import Data.StrMap (StrMap(..)) | 9 | import Data.StrMap (StrMap(..)) |
9 | import Data.Map (Map(..)) | 10 | import Data.Map (Map(..)) |
10 | import Data.List (List(..)) | 11 | import Data.List (List(..)) |
11 | import Linear | 12 | import LinearBase |
12 | 13 | ||
13 | import Data.Argonaut.Encode.Combinators ((~>), (:=)) | 14 | import Data.Argonaut.Encode.Combinators ((~>), (:=)) |
14 | import Data.Argonaut.Decode.Combinators ((.?)) | 15 | import Data.Argonaut.Decode.Combinators ((.?)) |
@@ -16,7 +17,6 @@ import Data.Argonaut.Core (jsonEmptyObject) | |||
16 | import Data.Argonaut.Printer (printJson) | 17 | import Data.Argonaut.Printer (printJson) |
17 | import Data.Argonaut.Encode (class EncodeJson, encodeJson) | 18 | import Data.Argonaut.Encode (class EncodeJson, encodeJson) |
18 | import Data.Argonaut.Decode (class DecodeJson, decodeJson) | 19 | import Data.Argonaut.Decode (class DecodeJson, decodeJson) |
19 | import Partial.Unsafe (unsafeCrashWith) | ||
20 | 20 | ||
21 | import LambdaCube.IR | 21 | import LambdaCube.IR |
22 | import LambdaCube.Mesh | 22 | import LambdaCube.Mesh |
@@ -97,7 +97,7 @@ instance decodeJsonClientInfo :: DecodeJson ClientInfo where | |||
97 | { clientName:clientName | 97 | { clientName:clientName |
98 | , clientBackend:clientBackend | 98 | , clientBackend:clientBackend |
99 | } | 99 | } |
100 | _ -> unsafeCrashWith "decodeJson @ ClientInfo" | 100 | _ -> Left ("decodeJsonClientInfo - unknown tag: " <> tag) |
101 | 101 | ||
102 | instance encodeJsonFrame :: EncodeJson Frame where | 102 | instance encodeJsonFrame :: EncodeJson Frame where |
103 | encodeJson v = case v of | 103 | encodeJson v = case v of |
@@ -122,7 +122,7 @@ instance decodeJsonFrame :: DecodeJson Frame where | |||
122 | , frameUniforms:frameUniforms | 122 | , frameUniforms:frameUniforms |
123 | , frameTextures:frameTextures | 123 | , frameTextures:frameTextures |
124 | } | 124 | } |
125 | _ -> unsafeCrashWith "decodeJson @ Frame" | 125 | _ -> Left ("decodeJsonFrame - unknown tag: " <> tag) |
126 | 126 | ||
127 | instance encodeJsonScene :: EncodeJson Scene where | 127 | instance encodeJsonScene :: EncodeJson Scene where |
128 | encodeJson v = case v of | 128 | encodeJson v = case v of |
@@ -150,7 +150,7 @@ instance decodeJsonScene :: DecodeJson Scene where | |||
150 | , renderTargetHeight:renderTargetHeight | 150 | , renderTargetHeight:renderTargetHeight |
151 | , frames:frames | 151 | , frames:frames |
152 | } | 152 | } |
153 | _ -> unsafeCrashWith "decodeJson @ Scene" | 153 | _ -> Left ("decodeJsonScene - unknown tag: " <> tag) |
154 | 154 | ||
155 | instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where | 155 | instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where |
156 | encodeJson v = case v of | 156 | encodeJson v = case v of |
@@ -172,7 +172,7 @@ instance decodeJsonPipelineInfo :: DecodeJson PipelineInfo where | |||
172 | { pipelineName:pipelineName | 172 | { pipelineName:pipelineName |
173 | , pipeline:pipeline | 173 | , pipeline:pipeline |
174 | } | 174 | } |
175 | _ -> unsafeCrashWith "decodeJson @ PipelineInfo" | 175 | _ -> Left ("decodeJsonPipelineInfo - unknown tag: " <> tag) |
176 | 176 | ||
177 | instance encodeJsonRenderJob :: EncodeJson RenderJob where | 177 | instance encodeJsonRenderJob :: EncodeJson RenderJob where |
178 | encodeJson v = case v of | 178 | encodeJson v = case v of |
@@ -203,7 +203,7 @@ instance decodeJsonRenderJob :: DecodeJson RenderJob where | |||
203 | , scenes:scenes | 203 | , scenes:scenes |
204 | , pipelines:pipelines | 204 | , pipelines:pipelines |
205 | } | 205 | } |
206 | _ -> unsafeCrashWith "decodeJson @ RenderJob" | 206 | _ -> Left ("decodeJsonRenderJob - unknown tag: " <> tag) |
207 | 207 | ||
208 | instance encodeJsonFrameResult :: EncodeJson FrameResult where | 208 | instance encodeJsonFrameResult :: EncodeJson FrameResult where |
209 | encodeJson v = case v of | 209 | encodeJson v = case v of |
@@ -228,7 +228,7 @@ instance decodeJsonFrameResult :: DecodeJson FrameResult where | |||
228 | , frImageWidth:frImageWidth | 228 | , frImageWidth:frImageWidth |
229 | , frImageHeight:frImageHeight | 229 | , frImageHeight:frImageHeight |
230 | } | 230 | } |
231 | _ -> unsafeCrashWith "decodeJson @ FrameResult" | 231 | _ -> Left ("decodeJsonFrameResult - unknown tag: " <> tag) |
232 | 232 | ||
233 | instance encodeJsonRenderJobResult :: EncodeJson RenderJobResult where | 233 | instance encodeJsonRenderJobResult :: EncodeJson RenderJobResult where |
234 | encodeJson v = case v of | 234 | encodeJson v = case v of |
@@ -242,5 +242,5 @@ instance decodeJsonRenderJobResult :: DecodeJson RenderJobResult where | |||
242 | case tag of | 242 | case tag of |
243 | "RenderJobResult" -> RenderJobResult <$> obj .? "arg0" | 243 | "RenderJobResult" -> RenderJobResult <$> obj .? "arg0" |
244 | "RenderJobError" -> RenderJobError <$> obj .? "arg0" | 244 | "RenderJobError" -> RenderJobError <$> obj .? "arg0" |
245 | _ -> unsafeCrashWith "decodeJson @ RenderJobResult" | 245 | _ -> Left ("decodeJsonRenderJobResult - unknown tag: " <> tag) |
246 | 246 | ||