diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-11 02:29:26 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-11 02:29:26 -0400 |
| commit | 42eef741086804aa106870f5a375c65ac5d83ab2 (patch) | |
| tree | 03a3773f55c84fadfc2eee93a10e809752f106de /src/Graphics | |
| parent | d866df206e703854cfa95e6aabe3ed5ed3bfbcaa (diff) | |
Sundqvist: Allow leading spaces.
Diffstat (limited to 'src/Graphics')
| -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 | -- | |