From 9a6e7b2b83f582157a7c004451a20d8280829499 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Sat, 24 Dec 2016 23:25:39 +0100 Subject: more info in error message --- src/LambdaCube/GL/Mesh.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/LambdaCube/GL/Mesh.hs') diff --git a/src/LambdaCube/GL/Mesh.hs b/src/LambdaCube/GL/Mesh.hs index 5c16e42..1b1b823 100644 --- a/src/LambdaCube/GL/Mesh.hs +++ b/src/LambdaCube/GL/Mesh.hs @@ -50,7 +50,7 @@ data GPUMesh addMeshToObjectArray :: GLStorage -> String -> [String] -> GPUMesh -> IO Object addMeshToObjectArray input slotName objUniNames (GPUMesh _ (GPUData prim streams indices _)) = do -- select proper attributes - let (ObjectArraySchema slotPrim slotStreams) = fromMaybe (error $ "missing object array: " ++ slotName) $ Map.lookup slotName $! objectArrays $! schema input + let (ObjectArraySchema slotPrim slotStreams) = fromMaybe (error $ "addMeshToObjectArray - missing object array: " ++ slotName) $ Map.lookup slotName $! objectArrays $! schema input filterStream n _ = Map.member n slotStreams addObject input slotName prim indices (Map.filterWithKey filterStream streams) objUniNames -- cgit v1.2.3