Skip to content

Commit 6de6977

Browse files
committed
style: make numParser more generic
1 parent e79d5a3 commit 6de6977

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/Text/Megaparsec/Utils.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,9 @@ posNumParser = read <$> some digitChar
117117
-- | Parse an integer, without any space between minus sign and digits.
118118
numParser
119119
:: Ord e
120-
=> Parsec e String Int
120+
=> Num a
121+
=> Read a
122+
=> Parsec e String a
121123
numParser = (char '-' >> negate <$> posNumParser) <|> posNumParser
122124

123125
-- | Convert a 'Parsec' parser into a 'Parser' suited for 'Data.Aeson.FromJSON'

0 commit comments

Comments
 (0)