Skip to content

Commit 1bf7864

Browse files
committed
Use where for rxDigit
1 parent 9fc2cf0 commit 1bf7864

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/Text/Parsing/StringParser/String.purs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -29,9 +29,9 @@ anyDigit = Parser \{ str: str, pos: i } fc sc -> case charAt i str of
2929
then sc chrS { str: str, pos: i + 1 }
3030
else fc i (ParseError "Expected digit")
3131
Nothing -> fc i (ParseError "Unexpected EOF")
32-
33-
rxDigit :: Rx.Regex
34-
rxDigit = Rx.regex "^[0-9]" Rx.noFlags
32+
where
33+
rxDigit :: Rx.Regex
34+
rxDigit = Rx.regex "^[0-9]" Rx.noFlags
3535

3636
string :: String -> Parser String
3737
string nt = Parser (\s fc sc -> case s of

0 commit comments

Comments
 (0)