1 files changed, 6 insertions, 0 deletions

diff --git a/src/Codec/Wavefront/Lexer.hs b/src/Codec/Wavefront/Lexer.hs
index efb4b97..712cabf 100644
--- a/src/Codec/Wavefront/Lexer.hs
+++ b/src/Codec/Wavefront/Lexer.hs
@@ -32,6 +32,8 @@ data Ctxt = Ctxt {
     ctxtLocations :: DList Location
     -- |Texture coordinates.
   , ctxtTexCoords :: DList TexCoord
+    -- |Texture coordinates.
+  , ctxtParamCoords :: DList ParamCoord
     -- |Normals.
   , ctxtNormals :: DList Normal
     -- |Points.
@@ -58,6 +60,7 @@ emptyCtxt :: Ctxt
 emptyCtxt = Ctxt {
     ctxtLocations = empty
   , ctxtTexCoords = empty
+  , ctxtParamCoords = empty
   , ctxtNormals = empty
   , ctxtPoints = empty
   , ctxtLines = empty
@@ -83,6 +86,9 @@ lexer stream = execState (traverse_ consume stream) emptyCtxt
       TknVT vt -> do
         texCoords <- gets ctxtTexCoords
         modify $ \ctxt -> ctxt { ctxtTexCoords = texCoords `snoc` vt }
+      TknVP vp -> do
+        pCoords <- gets ctxtParamCoords
+        modify $ \ctxt -> ctxt { ctxtParamCoords = pCoords `snoc` vp }
       TknP p -> do
         (pts,element) <- prepareElement ctxtPoints
         modify $ \ctxt -> ctxt { ctxtPoints = pts `append` fmap element (fromList p) }