@@ -70,6 +70,8 @@ module Language.PureScript.Parser.Lexer
7070
7171import Prelude hiding (lex)
7272
73+import Data.Char (isSpace)
74+
7375import Control.Monad (void, guard)
7476import Data.Functor.Identity
7577
@@ -158,7 +160,7 @@ parseTokens :: P.Parsec String u [PositionedToken]
158160parseTokens = whitespace *> P.many parsePositionedToken <* P.skipMany parseComment <* P.eof
159161
160162whitespace :: P.Parsec String u ()
161−whitespace = P.skipMany (P.oneOf " \t\r\n")
163+whitespace = P.skipMany (P.satisfy isSpace)
162164
163165parseComment :: P.Parsec String u Comment
164166parseComment = (BlockComment <$> blockComment <|> LineComment <$> lineComment) <* whitespace