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 |