diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 23:25:39 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 23:25:39 +0100 |
| commit | 9a6e7b2b83f582157a7c004451a20d8280829499 (patch) | |
| tree | fbedaeee87ad95ca153227aa00bea913b567f48d /src/LambdaCube/GL/Mesh.hs | |
| parent | c904806462e2331a210833af9a183d6f6f0a03a3 (diff) | |
more info in error message
Diffstat (limited to 'src/LambdaCube/GL/Mesh.hs')
| -rw-r--r-- | src/LambdaCube/GL/Mesh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 50 | addMeshToObjectArray :: GLStorage -> String -> [String] -> GPUMesh -> IO Object | 50 | addMeshToObjectArray :: GLStorage -> String -> [String] -> GPUMesh -> IO Object |
| 51 | addMeshToObjectArray input slotName objUniNames (GPUMesh _ (GPUData prim streams indices _)) = do | 51 | addMeshToObjectArray input slotName objUniNames (GPUMesh _ (GPUData prim streams indices _)) = do |
| 52 | -- select proper attributes | 52 | -- select proper attributes |
| 53 | let (ObjectArraySchema slotPrim slotStreams) = fromMaybe (error $ "missing object array: " ++ slotName) $ Map.lookup slotName $! objectArrays $! schema input | 53 | let (ObjectArraySchema slotPrim slotStreams) = fromMaybe (error $ "addMeshToObjectArray - missing object array: " ++ slotName) $ Map.lookup slotName $! objectArrays $! schema input |
| 54 | filterStream n _ = Map.member n slotStreams | 54 | filterStream n _ = Map.member n slotStreams |
| 55 | addObject input slotName prim indices (Map.filterWithKey filterStream streams) objUniNames | 55 | addObject input slotName prim indices (Map.filterWithKey filterStream streams) objUniNames |
| 56 | 56 | ||