1 files changed, 33 insertions, 0 deletions

diff --git a/src/Wavefront.hs b/src/Wavefront.hs
index 66d6cdb..9e42779 100644
--- a/src/Wavefront.hs
+++ b/src/Wavefront.hs
@@ -42,6 +42,39 @@ data ObjBuilder m = ObjBuilder
     , badToken         :: L.ByteString -> m ()
     }
 
+nullBuilder :: Applicative m => ObjBuilder m
+nullBuilder = ObjBuilder
+    { vertex           = \vs -> pure ()
+    , vertexT          = \vs -> pure ()
+    , vertexN          = \vs -> pure ()
+    , vertexP          = \vs -> pure ()
+    , face             = \is -> pure ()
+    , cstype           = \isRat typ -> pure ()
+    , curv2            = \is -> pure ()
+    , curv             = \u0 v0 is -> pure ()
+    , parm             = \isU is -> pure ()
+    , specialPoints    = \is -> pure ()
+    , endFreeForm      = pure ()
+    , ctech            = \approx -> pure ()
+    , stech            = \approx -> pure ()
+    , deg              = \is -> pure ()
+    , surf             = \u0 u1 v0 v1 ts -> pure ()
+    , trim             = \ss -> pure ()
+    , hole             = \ss -> pure ()
+    , specialCurves    = \ss -> pure ()
+    , equivalentCurves = \ccs -> pure ()
+    , groups           = \gs -> pure ()
+    , smoothingGroup   = \sg -> pure ()
+    , mergingGroup     = \mg δ -> pure ()
+    , usemtl           = \mtl -> pure ()
+    , deprecated_cdc   = \is -> pure ()
+    , deprecated_bzp   = \is -> pure ()
+    , mtllib           = \fns -> pure ()
+    , objectName       = \obn -> pure ()
+    , badToken         = \bs -> pure ()
+    }
+
+
 data CurveSamplingSpec
     -- ctech cparm
     = UniformSubdivision