diff options
Diffstat (limited to 'src/Graphics/WaveFront/Parse/OBJ.hs')
-rw-r--r-- | src/Graphics/WaveFront/Parse/OBJ.hs | 2 |
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 | |||
72 | -- - Handle invalid rows (how to deal with mangled definitions w.r.t indices?) | 72 | -- - Handle invalid rows (how to deal with mangled definitions w.r.t indices?) |
73 | -- - Use ListLike or Monoid (or maybe Indexable, since that's the real requirement) (?) | 73 | -- - Use ListLike or Monoid (or maybe Indexable, since that's the real requirement) (?) |
74 | row :: (Fractional f, Integral i) => Atto.Parser (OBJToken f Text i []) | 74 | row :: (Fractional f, Integral i) => Atto.Parser (OBJToken f Text i []) |
75 | row = token <* ignore comment -- TODO: Let the separator handle comments (?) | 75 | row = Atto.skipSpace *> token <* ignore comment -- TODO: Let the separator handle comments (?) |
76 | 76 | ||
77 | 77 | ||
78 | -- | | 78 | -- | |