1 files changed, 6 insertions, 6 deletions

diff --git a/ddl/out/LambdaCube.Mesh.purs b/ddl/out/LambdaCube.Mesh.purs
index bf6dfa7..7b39700 100644
--- a/ddl/out/LambdaCube.Mesh.purs
+++ b/ddl/out/LambdaCube.Mesh.purs
@@ -1,14 +1,15 @@
 -- generated file, do not modify!
--- 2016-11-11T11:17:03.517567000000Z
+-- 2016-11-12T12:48:59.903978000000Z
 
 module LambdaCube.Mesh 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)
 
 
 data MeshAttribute
@@ -72,7 +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"
+      _ -> Left ("decodeJsonMeshAttribute - unknown tag: " <> tag)
 
 instance encodeJsonMeshPrimitive :: EncodeJson MeshPrimitive where
   encodeJson v = case v of
@@ -92,7 +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"
+      _ -> Left ("decodeJsonMeshPrimitive - unknown tag: " <> tag)
 
 instance encodeJsonMesh :: EncodeJson Mesh where
   encodeJson v = case v of
@@ -114,5 +114,5 @@ instance decodeJsonMesh :: DecodeJson Mesh where
           { mAttributes:mAttributes
           , mPrimitive:mPrimitive
           } 
-      _ -> unsafeCrashWith "decodeJson @ Mesh"
+      _ -> Left ("decodeJsonMesh - unknown tag: " <> tag)