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

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

@ -738,10 +738,10 @@ fromRawNumber suggestedStyle negated raw = (quantity, precision, mdecimalpoint,
-- --
-- - 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