diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-07-10 23:13:52 +0200 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-07-10 23:14:28 +0200 |
| commit | b2b400c4a8a3a4c7e25ab45770962149a05a5d12 (patch) | |
| tree | 88c635a67b72fc4f1d95e2cf143d53a8e0cc484c | |
| parent | 286c756067b8261f307d12362d53f0b40c30bd7c (diff) | |
fix obj example
| -rw-r--r-- | examples/HelloOBJ.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/HelloOBJ.hs b/examples/HelloOBJ.hs index 8e409a5..bffb10d 100644 --- a/examples/HelloOBJ.hs +++ b/examples/HelloOBJ.hs | |||
| @@ -107,9 +107,7 @@ main = do | |||
| 107 | 107 | ||
| 108 | storage <- LambdaCubeGL.allocStorage inputSchema | 108 | storage <- LambdaCubeGL.allocStorage inputSchema |
| 109 | 109 | ||
| 110 | objName <- getArgs >>= \case | 110 | objName <- head . (++ ["cube.obj"]) <$> getArgs |
| 111 | [] -> fail "missing .obj argument" | ||
| 112 | a -> return $ head a | ||
| 113 | -- load OBJ geometry and material descriptions | 111 | -- load OBJ geometry and material descriptions |
| 114 | Right (objMesh,mtlLib) <- loadOBJToGPU objName | 112 | Right (objMesh,mtlLib) <- loadOBJToGPU objName |
| 115 | -- load materials textures | 113 | -- load materials textures |