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