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 @@
 -- generated file, do not modify!
--- 2016-11-11T11:17:03.685172000000Z
+-- 2016-11-12T12:49:00.081060000000Z
 
 module TestData where
 import Prelude
 import Data.Generic
+import Data.Either (Either(..))
 import Data.Maybe (Maybe(..))
 import Data.StrMap (StrMap(..))
 import Data.Map (Map(..))
 import Data.List (List(..))
-import Linear
+import LinearBase
 
 import Data.Argonaut.Encode.Combinators ((~>), (:=))
 import Data.Argonaut.Decode.Combinators ((.?))
@@ -16,7 +17,6 @@ import Data.Argonaut.Core (jsonEmptyObject)
 import Data.Argonaut.Printer (printJson)
 import Data.Argonaut.Encode (class EncodeJson, encodeJson)
 import Data.Argonaut.Decode (class DecodeJson, decodeJson)
-import Partial.Unsafe (unsafeCrashWith)
 
 import LambdaCube.IR
 import LambdaCube.Mesh
@@ -97,7 +97,7 @@ instance decodeJsonClientInfo :: DecodeJson ClientInfo where
           { clientName:clientName
           , clientBackend:clientBackend
           } 
-      _ -> unsafeCrashWith "decodeJson @ ClientInfo"
+      _ -> Left ("decodeJsonClientInfo - unknown tag: " <> tag)
 
 instance encodeJsonFrame :: EncodeJson Frame where
   encodeJson v = case v of
@@ -122,7 +122,7 @@ instance decodeJsonFrame :: DecodeJson Frame where
           , frameUniforms:frameUniforms
           , frameTextures:frameTextures
           } 
-      _ -> unsafeCrashWith "decodeJson @ Frame"
+      _ -> Left ("decodeJsonFrame - unknown tag: " <> tag)
 
 instance encodeJsonScene :: EncodeJson Scene where
   encodeJson v = case v of
@@ -150,7 +150,7 @@ instance decodeJsonScene :: DecodeJson Scene where
           , renderTargetHeight:renderTargetHeight
           , frames:frames
           } 
-      _ -> unsafeCrashWith "decodeJson @ Scene"
+      _ -> Left ("decodeJsonScene - unknown tag: " <> tag)
 
 instance encodeJsonPipelineInfo :: EncodeJson PipelineInfo where
   encodeJson v = case v of
@@ -172,7 +172,7 @@ instance decodeJsonPipelineInfo :: DecodeJson PipelineInfo where
           { pipelineName:pipelineName
           , pipeline:pipeline
           } 
-      _ -> unsafeCrashWith "decodeJson @ PipelineInfo"
+      _ -> Left ("decodeJsonPipelineInfo - unknown tag: " <> tag)
 
 instance encodeJsonRenderJob :: EncodeJson RenderJob where
   encodeJson v = case v of
@@ -203,7 +203,7 @@ instance decodeJsonRenderJob :: DecodeJson RenderJob where
           , scenes:scenes
           , pipelines:pipelines
           } 
-      _ -> unsafeCrashWith "decodeJson @ RenderJob"
+      _ -> Left ("decodeJsonRenderJob - unknown tag: " <> tag)
 
 instance encodeJsonFrameResult :: EncodeJson FrameResult where
   encodeJson v = case v of
@@ -228,7 +228,7 @@ instance decodeJsonFrameResult :: DecodeJson FrameResult where
           , frImageWidth:frImageWidth
           , frImageHeight:frImageHeight
           } 
-      _ -> unsafeCrashWith "decodeJson @ FrameResult"
+      _ -> Left ("decodeJsonFrameResult - unknown tag: " <> tag)
 
 instance encodeJsonRenderJobResult :: EncodeJson RenderJobResult where
   encodeJson v = case v of
@@ -242,5 +242,5 @@ instance decodeJsonRenderJobResult :: DecodeJson RenderJobResult where
     case tag of
       "RenderJobResult" -> RenderJobResult <$> obj .? "arg0"
       "RenderJobError" -> RenderJobError <$> obj .? "arg0"
-      _ -> unsafeCrashWith "decodeJson @ RenderJobResult"
+      _ -> Left ("decodeJsonRenderJobResult - unknown tag: " <> tag)