1 files changed, 3 insertions, 1 deletions

diff --git a/MtlParser.hs b/MtlParser.hs
index a59c0eb..488ec4e 100644
--- a/MtlParser.hs
+++ b/MtlParser.hs
@@ -71,7 +71,9 @@ parseLine s = case words $ takeWhile (/='#') s of
   _ -> return ()
 
 parseMtl :: String -> MtlLib
-parseMtl src = Map.fromList [(mtl_Name m,m) | m <- evalState (execWriterT (mapM_ parseLine (lines src) >> addMaterial)) Nothing]
+parseMtl src =
+    Map.insert mempty (newMaterial mempty)
+        $ Map.fromList [(mtl_Name m,m) | m <- evalState (execWriterT (mapM_ parseLine (lines src) >> addMaterial)) Nothing]
 
 readMtl :: String -> IO MtlLib
 readMtl fname = parseMtl <$> readFile fname