summaryrefslogtreecommitdiff
path: root/src/Graphics/WaveFront/Parse/OBJ.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Graphics/WaveFront/Parse/OBJ.hs')
-rw-r--r--src/Graphics/WaveFront/Parse/OBJ.hs2
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) (?)
74row :: (Fractional f, Integral i) => Atto.Parser (OBJToken f Text i []) 74row :: (Fractional f, Integral i) => Atto.Parser (OBJToken f Text i [])
75row = token <* ignore comment -- TODO: Let the separator handle comments (?) 75row = Atto.skipSpace *> token <* ignore comment -- TODO: Let the separator handle comments (?)
76 76
77 77
78-- | 78-- |