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 =
120120numberRegex :: forall m . ParserT String m String
121121numberRegex = either unsafeCrashWith identity $ regex pattern mempty
122122 where
123- pattern = " [+-]?[0-9]*(\\ .[0-9]*)?([eE][+-]?[0-9]*(\\ .[0-9]*))?"
123+ pattern = " [+-]?[0-9]*(\\ .[0-9]*)?([eE][+-]?[0-9]*(\\ .[0-9]*)? )?"
124124
125125-- | Parser based on the __Data.Int.fromString__ function.
126126-- |
Original file line number Diff line number Diff line change @@ -726,6 +726,11 @@ main = do
726726 , expected: Right (-0.3 )
727727 }
728728
729+ assertEqual' " number xEy"
730+ { actual: runParser " 2e1" number
731+ , expected: Right 20.0
732+ }
733+
729734 -- test from issue #73
730735 assertEqual' " number 2"
731736 { actual: runParser " 0.7531531167929774" number
You can’t perform that action at this time.
0 commit comments