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

csv: handle the other double negation cases: -(N), ((N)) (fix #736)

Browse Source
This commit is contained in:
Simon Michael 2018-04-18 07:35:47 -07:00
parent d82370d10b
commit f2d3b3e1d4
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -732,10 +732,26 @@ getAmountStr rules record =
type CsvAmountString = String type CsvAmountString = String
-- | Canonicalise the sign in a CSV amount string. -- | Canonicalise the sign in a CSV amount string.
-- Such strings can be parenthesized, which is equivalent to having a minus sign. -- Such strings can have a minus sign, negating parentheses,
-- Also they can end up with a double minus sign, which cancels out. -- or any two of these (which cancels out).
--
-- >>> simplifySign "1"
-- "1"
-- >>> simplifySign "-1"
-- "-1"
-- >>> simplifySign "(1)"
-- "-1"
-- >>> simplifySign "--1"
-- "1"
-- >>> simplifySign "-(1)"
-- "1"
-- >>> simplifySign "(-1)"
-- "1"
-- >>> simplifySign "((1))"
-- "1"
simplifySign :: CsvAmountString -> CsvAmountString simplifySign :: CsvAmountString -> CsvAmountString
simplifySign ('(':s) | lastMay s == Just ')' = simplifySign $ negateStr $ init s simplifySign ('(':s) | lastMay s == Just ')' = simplifySign $ negateStr $ init s
simplifySign ('-':'(':s) | lastMay s == Just ')' = simplifySign $ init s
simplifySign ('-':'-':s) = s simplifySign ('-':'-':s) = s
simplifySign s = s simplifySign s = s