From 85fb0dd752a8911e8fa14287ab9f8673fd6ffda4 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Wed, 31 Jul 2019 02:50:26 -0400
Subject: Always include null material.

---
 MtlParser.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3