slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix doctest error introduced by 49c8c093ac.

Browse Source
This commit is contained in:
Stephen Morgan 2018-05-11 17:10:04 +10:00 committed by Simon Michael
parent 7040289d54
commit 5bc5bb5533
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hledger-lib/Hledger/Read/Common.hs
View File

@ -731,17 +731,17 @@ fromRawNumber suggestedStyle negated raw = (quantity, precision, mdecimalpoint,
-- Numbers may optionally have a period/comma decimal point -- Numbers may optionally have a period/comma decimal point
-- and/or comma/period/space digit group separators, but we don't -- and/or comma/period/space digit group separators, but we don't
-- decide which is which here, just return the parts: -- decide which is which here, just return the parts:
-- --
-- - the first separator char (period or comma or space) seen, if any -- - the first separator char (period or comma or space) seen, if any
-- --
-- - the digit group(s), possibly several separated by the above char, occuring before.. -- - the digit group(s), possibly several separated by the above char, occuring before..
-- --
-- - the second and last separator char, and following digit group, if any. -- - the second and last separator char, and following digit group, if any.
-- --
-- >>> 1,234,567.89 -- >>> parseTest rawnumberp "1,234,567.89"
-- ( Just ',', ["1","234","567"], Just ('.', "89") ) -- (Just ',',["1","234","567"],Just ('.',"89"))
-- >>> 1 000 -- >>> parseTest rawnumberp "1 000"
-- ( Just ' ', ["1","000"], Nothing ) -- (Just ' ',["1","000"],Nothing)
rawnumberp :: TextParser m ( Maybe Char , [String] , Maybe (Char, String) ) rawnumberp :: TextParser m ( Maybe Char , [String] , Maybe (Char, String) )
rawnumberp = do rawnumberp = do
let sepChars = ['.', ','] -- all allowed punctuation characters let sepChars = ['.', ','] -- all allowed punctuation characters