1 files changed, 3 insertions, 3 deletions

diff --git a/src/Graphics/WaveFront/Parse/OBJ.hs b/src/Graphics/WaveFront/Parse/OBJ.hs
index 37aa5a0..69cce47 100644
--- a/src/Graphics/WaveFront/Parse/OBJ.hs
+++ b/src/Graphics/WaveFront/Parse/OBJ.hs
@@ -139,12 +139,12 @@ normal = OBJNormal <$> point3D
 
 -- | Two coordinates, separated by whitespace
 texcoord :: (Fractional f) => Atto.Parser (OBJToken f Text i m)
-texcoord = OBJTexCoord <$> point2D
+texcoord = OBJTexCoord <$> pointTo3 1 0.0
 
 
 -- | Three coordinates, separated by whitespace
 vertex :: (Fractional f) =>  Atto.Parser (OBJToken f s i m)
-vertex  = OBJVertex <$> point3D
+vertex  = OBJVertex <$> pointTo4 3 1.0
 
 
 -- | Object names, separated by whitespace
@@ -170,4 +170,4 @@ lib = LibMTL <$> (space *> name)
 
 -- | An MTL material name
 use :: Atto.Parser (OBJToken f Text i m)
-use = UseMTL <$> (space *> name)
\ No newline at end of file
+use = UseMTL <$> (space *> name)