File tree 1 file changed +3
-3
lines changed
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
69
69
70
70
-- | Match the specified character
71
71
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
73
73
74
74
-- | Match a whitespace character.
75
75
whiteSpace :: forall s m . StringLike s => Monad m => ParserT s m String
@@ -83,8 +83,8 @@ skipSpaces = void whiteSpace
83
83
84
84
-- | Match one of the characters in the array.
85
85
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)
87
87
88
88
-- | Match any character not in the array.
89
89
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)
You can’t perform that action at this time.
0 commit comments