1 files changed, 10 insertions, 0 deletions

diff --git a/src/Codec/Wavefront/Lexer.hs b/src/Codec/Wavefront/Lexer.hs
index 77ecb35..ea32e2a 100644
--- a/src/Codec/Wavefront/Lexer.hs
+++ b/src/Codec/Wavefront/Lexer.hs
@@ -14,6 +14,7 @@ module Codec.Wavefront.Lexer where
 
 import Codec.Wavefront.Element
 import Codec.Wavefront.Face
+import Codec.Wavefront.FreeForm
 import Codec.Wavefront.Line
 import Codec.Wavefront.Location
 import Codec.Wavefront.Normal
@@ -42,6 +43,12 @@ data Ctxt = Ctxt {
   , ctxtLines :: DList (Element Line)
     -- |Faces.
   , ctxtFaces :: DList (Element Face)
+    -- |Curves.
+  , ctxtCurves :: DList (Element Curve)
+    -- |Curves on surfaces.
+  , ctxtEmbeddedCurves :: DList (Element EmbeddedCurve)
+    -- |Surfaces.
+  , ctxtSurfaces :: DList (Element Surface)
     -- |Current object.
   , ctxtCurrentObject :: Maybe Text
     -- |Current groups.
@@ -65,6 +72,9 @@ emptyCtxt = Ctxt {
   , ctxtPoints = empty
   , ctxtLines = empty
   , ctxtFaces = empty
+  , ctxtCurves = empty
+  , ctxtEmbeddedCurves = empty
+  , ctxtSurfaces = empty
   , ctxtCurrentObject = Nothing
   , ctxtCurrentGroups = ["default"]
   , ctxtCurrentMtl = Nothing