File tree Expand file tree Collapse file tree 2 files changed +6
-1
lines changed Expand file tree Collapse file tree 2 files changed +6
-1
lines changed Original file line number Diff line number Diff line change @@ -120,7 +120,7 @@ number =
120
120
numberRegex :: forall m . ParserT String m String
121
121
numberRegex = either unsafeCrashWith identity $ regex pattern mempty
122
122
where
123
- pattern = " [+-]?[0-9]*(\\ .[0-9]*)?([eE][+-]?[0-9]*(\\ .[0-9]*))?"
123
+ pattern = " [+-]?[0-9]*(\\ .[0-9]*)?([eE][+-]?[0-9]*(\\ .[0-9]*)? )?"
124
124
125
125
-- | Parser based on the __Data.Int.fromString__ function.
126
126
-- |
Original file line number Diff line number Diff line change @@ -726,6 +726,11 @@ main = do
726
726
, expected: Right (-0.3 )
727
727
}
728
728
729
+ assertEqual' " number xEy"
730
+ { actual: runParser " 2e1" number
731
+ , expected: Right 20.0
732
+ }
733
+
729
734
-- test from issue #73
730
735
assertEqual' " number 2"
731
736
{ actual: runParser " 0.7531531167929774" number
You can’t perform that action at this time.
0 commit comments