PARSER: add parser for negative doubles

2014-10-11 04:39:51 +02:00
parent 7fb3588300
commit 6c66a7acb3
2 changed files with 27 additions and 2 deletions
--- a/Parser/Meshparser.hs
+++ b/Parser/Meshparser.hs
@@ -24,5 +24,5 @@ meshToArr =
 parseVertice :: Parser (Double, Double)
 parseVertice =
  (,)                                 <$>
-    (char 'v' *> spaces *> posDouble) <*>
-    (spaces *> posDouble)
+    (char 'v' *> spaces *> allDouble) <*>
+    (spaces *> allDouble)