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
    storage <- LambdaCubeGL.allocStorage inputSchema
-    objName <- getArgs >>= \case
+    objName <- head . (++ ["cube.obj"]) <$> getArgs
-      [] -> fail "missing .obj argument"
-      a -> return $ head a
    -- load OBJ geometry and material descriptions
    Right (objMesh,mtlLib) <- loadOBJToGPU objName
    -- load materials textures

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