Skip to content

Commit 82f4d33

Browse files
safarelipaf31
authored andcommitted
remove unneeded Expected from String parsers fix #60 (#61)
1 parent f9388a1 commit 82f4d33

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/Text/Parsing/Parser/String.purs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,7 @@ satisfy f = try do
6969

7070
-- | Match the specified character
7171
char :: 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.
7575
whiteSpace :: 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.
8585
oneOf :: 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.
8989
noneOf :: 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)

0 commit comments

Comments
 (0)