1 files changed, 10 insertions, 0 deletions

diff --git a/src/Codec/Wavefront/Object.hs b/src/Codec/Wavefront/Object.hs
index 26d85c2..65c062e 100644
--- a/src/Codec/Wavefront/Object.hs
+++ b/src/Codec/Wavefront/Object.hs
@@ -13,6 +13,7 @@ module Codec.Wavefront.Object where
 
 import Codec.Wavefront.Element
 import Codec.Wavefront.Face
+import Codec.Wavefront.FreeForm
 import Codec.Wavefront.Lexer ( Ctxt(..) )
 import Codec.Wavefront.Line
 import Codec.Wavefront.Location
@@ -38,6 +39,12 @@ data WavefrontOBJ = WavefrontOBJ {
   , objLines :: Vector (Element Line)
     -- |Faces.
   , objFaces :: Vector (Element Face)
+    -- |Curves.
+  , objCurves :: Vector (Element Curve)
+    -- |Curves on surfaces.
+  , objEmbeddedCurves :: Vector (Element EmbeddedCurve)
+    -- |Surfaces.
+  , objSurfaces :: Vector (Element Surface)
     -- |Material libraries.
   , objMtlLibs :: Vector Text
   } deriving (Eq,Show)
@@ -51,6 +58,9 @@ ctxtToWavefrontOBJ ctxt = WavefrontOBJ {
   , objPoints = fromDList (ctxtPoints ctxt)
   , objLines = fromDList (ctxtLines ctxt)
   , objFaces = fromDList (ctxtFaces ctxt)
+  , objCurves = fromDList (ctxtCurves ctxt)
+  , objEmbeddedCurves = fromDList (ctxtEmbeddedCurves ctxt)
+  , objSurfaces = fromDList (ctxtSurfaces ctxt)
   , objMtlLibs = fromDList (ctxtMtlLibs ctxt)
   }