Fix carriage return parser issues.

Haskell-Things · Sep 21, 2012 · 76aa908 · 76aa908
1 parent 37fa230
commit 76aa908
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Graphics/Implicit/ExtOpenScad/Expressions.hs b/Graphics/Implicit/ExtOpenScad/Expressions.hs
@@ -20,7 +20,7 @@ errorAsAppropriate name a b = OError
 
 -- white space, including tabs, newlines and comments
 genSpace = many $ 
-	oneOf " \t\n" 
+	oneOf " \t\n\r" 
 	<|> (try $ do
 		string "//"
 		many ( noneOf "\n")