diff options
Diffstat (limited to 'ddl/out/LambdaCube.Mesh.purs')
-rw-r--r-- | ddl/out/LambdaCube.Mesh.purs | 12 |
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 @@ | |||
1 | -- generated file, do not modify! | 1 | -- generated file, do not modify! |
2 | -- 2016-11-11T11:17:03.517567000000Z | 2 | -- 2016-11-12T12:48:59.903978000000Z |
3 | 3 | ||
4 | module LambdaCube.Mesh where | 4 | module LambdaCube.Mesh 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 | 21 | ||
22 | data MeshAttribute | 22 | data MeshAttribute |
@@ -72,7 +72,7 @@ instance decodeJsonMeshAttribute :: DecodeJson MeshAttribute where | |||
72 | "A_M44F" -> A_M44F <$> obj .? "arg0" | 72 | "A_M44F" -> A_M44F <$> obj .? "arg0" |
73 | "A_Int" -> A_Int <$> obj .? "arg0" | 73 | "A_Int" -> A_Int <$> obj .? "arg0" |
74 | "A_Word" -> A_Word <$> obj .? "arg0" | 74 | "A_Word" -> A_Word <$> obj .? "arg0" |
75 | _ -> unsafeCrashWith "decodeJson @ MeshAttribute" | 75 | _ -> Left ("decodeJsonMeshAttribute - unknown tag: " <> tag) |
76 | 76 | ||
77 | instance encodeJsonMeshPrimitive :: EncodeJson MeshPrimitive where | 77 | instance encodeJsonMeshPrimitive :: EncodeJson MeshPrimitive where |
78 | encodeJson v = case v of | 78 | encodeJson v = case v of |
@@ -92,7 +92,7 @@ instance decodeJsonMeshPrimitive :: DecodeJson MeshPrimitive where | |||
92 | "P_Triangles" -> pure P_Triangles | 92 | "P_Triangles" -> pure P_Triangles |
93 | "P_TriangleStripI" -> P_TriangleStripI <$> obj .? "arg0" | 93 | "P_TriangleStripI" -> P_TriangleStripI <$> obj .? "arg0" |
94 | "P_TrianglesI" -> P_TrianglesI <$> obj .? "arg0" | 94 | "P_TrianglesI" -> P_TrianglesI <$> obj .? "arg0" |
95 | _ -> unsafeCrashWith "decodeJson @ MeshPrimitive" | 95 | _ -> Left ("decodeJsonMeshPrimitive - unknown tag: " <> tag) |
96 | 96 | ||
97 | instance encodeJsonMesh :: EncodeJson Mesh where | 97 | instance encodeJsonMesh :: EncodeJson Mesh where |
98 | encodeJson v = case v of | 98 | encodeJson v = case v of |
@@ -114,5 +114,5 @@ instance decodeJsonMesh :: DecodeJson Mesh where | |||
114 | { mAttributes:mAttributes | 114 | { mAttributes:mAttributes |
115 | , mPrimitive:mPrimitive | 115 | , mPrimitive:mPrimitive |
116 | } | 116 | } |
117 | _ -> unsafeCrashWith "decodeJson @ Mesh" | 117 | _ -> Left ("decodeJsonMesh - unknown tag: " <> tag) |
118 | 118 | ||