@@ -397,7 +397,7 @@ spaceChar = satisfy $ \c -> c == ' ' || c == '\t'
398-- | Parses a nonspace, nonnewline character.
398-- | Parses a nonspace, nonnewline character.
399nonspaceChar :: Stream s m Char => ParserT s st m Char
399nonspaceChar :: Stream s m Char => ParserT s st m Char
400−nonspaceChar = satisfy $ flip notElem ['\t', '\n', ' ', '\r']
400+nonspaceChar = noneOf ['\t', '\n', ' ', '\r']
402-- | Skips zero or more spaces or tabs.
402-- | Skips zero or more spaces or tabs.
403skipSpaces :: Stream s m Char => ParserT s st m ()
403skipSpaces :: Stream s m Char => ParserT s st m ()