simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-26 03:42:25 +03:00
Code Issues Projects Releases Wiki Activity

Refactor getSeparator

Browse Source
This commit is contained in:
Aleksandar Dimitrov 2020-01-05 21:08:41 +01:00 committed by Simon Michael
parent 92f680875f
commit 9011aaa5ba
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,9 +115,7 @@ parseSeparator = specials . map toLower
-- | Decide which separator to get.
-- If the external separator is provided, take it. Otherwise, look at the rules. Finally, return ','.
getSeparator :: CsvRules -> Char
getSeparator rules = head $
catMaybes [ getDirective "separator" rules >>= parseSeparator
, Just ',']
getSeparator rules = maybe ',' id (getDirective "separator" rules >>= parseSeparator)
-- | Read a Journal from the given CSV data (and filename, used for error
-- messages), or return an error. Proceed as follows: