Sundqvist: Allow leading spaces.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Graphics/WaveFront/Parse/OBJ.hs b/src/Graphics/WaveFront/Parse/OBJ.hs
index 69cce47..2c3919e 100644
--- a/src/Graphics/WaveFront/Parse/OBJ.hs
+++ b/src/Graphics/WaveFront/Parse/OBJ.hs
@@ -72,7 +72,7 @@ obj = Atto.sepBy row lineSeparator -- <* Atto.endOfInput
 --        - Handle invalid rows (how to deal with mangled definitions w.r.t indices?)
 --        - Use ListLike or Monoid (or maybe Indexable, since that's the real requirement) (?)
 row :: (Fractional f, Integral i) => Atto.Parser (OBJToken f Text i [])
-row = token <* ignore comment -- TODO: Let the separator handle comments (?)
+row = Atto.skipSpace *> token <* ignore comment -- TODO: Let the separator handle comments (?)
 
 
 -- |