Permalink
Browse files

More whitespace fixes...

  • Loading branch information...
1 parent 7c74cd9 commit 466117759c1e42cac67456d10bf63b57ea697870 @colah committed Sep 11, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 Graphics/Implicit/ExtOpenScad/Util.hs
@@ -44,15 +44,16 @@ infixr 2 <||>
-- white space, including tabs and comments
genSpace = many $
+ ( try $
space
- <|>
+ ) <|> ( try $
char '\t'
- <|> (do
+ ) <|> (try $ do
string "//"
many ( noneOf "\n")
string "\n"
return ' '
- ) <|> (do
+ ) <|> (try $ do
string "/*"
manyTill anyChar (try $ string "*/")
return ' '

0 comments on commit 4661177

Please sign in to comment.