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

Parse reserved words case insensitively

Browse Source
This commit is contained in:
Aleksandar Dimitrov 2020-01-05 19:02:33 +01:00 committed by Simon Michael
parent 8df4e1ed83
commit 92f680875f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,17 +105,18 @@ parse iopts f t = do
-- | Parse special separator names TAB and SPACE, or return the first -- | Parse special separator names TAB and SPACE, or return the first
-- character. Return Nothing on empty string -- character. Return Nothing on empty string
getSpecialSeparators :: String -> Maybe Char parseSeparator :: String -> Maybe Char
getSpecialSeparators "SPACE" = Just ' ' parseSeparator = specials . map toLower
getSpecialSeparators "TAB" = Just '\t' where specials "space" = Just ' '
getSpecialSeparators (x:_) = Just x specials "tab" = Just '\t'
getSpecialSeparators [] = Nothing specials (x:_) = Just x
specials [] = Nothing
-- | Decide which separator to get. -- | Decide which separator to get.
-- If the external separator is provided, take it. Otherwise, look at the rules. Finally, return ','. -- If the external separator is provided, take it. Otherwise, look at the rules. Finally, return ','.
getSeparator :: CsvRules -> Char getSeparator :: CsvRules -> Char
getSeparator rules = head $ getSeparator rules = head $
catMaybes [ getDirective "separator" rules >>= getSpecialSeparators catMaybes [ getDirective "separator" rules >>= parseSeparator
, Just ','] , Just ',']
-- | Read a Journal from the given CSV data (and filename, used for error -- | Read a Journal from the given CSV data (and filename, used for error