File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -69,7 +69,7 @@ satisfy f = try do
6969
7070-- | Match the specified character
7171char :: forall s m . StringLike s => Monad m => Char -> ParserT s m Char
72- char c = satisfy (_ == c) <?> ( " Expected " <> show c)
72+ char c = satisfy (_ == c) <?> show c
7373
7474-- | Match a whitespace character.
7575whiteSpace :: forall s m . StringLike s => Monad m => ParserT s m String
@@ -83,8 +83,8 @@ skipSpaces = void whiteSpace
8383
8484-- | Match one of the characters in the array.
8585oneOf :: forall s m . StringLike s => Monad m => Array Char -> ParserT s m Char
86- oneOf ss = satisfy (flip elem ss) <?> (" Expected one of " <> show ss)
86+ oneOf ss = satisfy (flip elem ss) <?> (" one of " <> show ss)
8787
8888-- | Match any character not in the array.
8989noneOf :: forall s m . StringLike s => Monad m => Array Char -> ParserT s m Char
90- noneOf ss = satisfy (flip notElem ss) <?> (" Expected none of " <> show ss)
90+ noneOf ss = satisfy (flip notElem ss) <?> (" none of " <> show ss)
You can’t perform that action at this time.
0 commit comments