From 92f680875fe274120b468756ed6e6f00e658b02f Mon Sep 17 00:00:00 2001
From: Aleksandar Dimitrov <git@aleks.bg>
Date: Sun, 5 Jan 2020 19:02:33 +0100
Subject: [PATCH] Parse reserved words case insensitively

---
 hledger-lib/Hledger/Read/CsvReader.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 3875a82de..8997a43c7 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -105,17 +105,18 @@ parse iopts f t = do
 
 -- | Parse special separator names TAB and SPACE, or return the first
 -- character. Return Nothing on empty string
-getSpecialSeparators :: String -> Maybe Char
-getSpecialSeparators "SPACE" = Just ' '
-getSpecialSeparators "TAB" = Just '\t'
-getSpecialSeparators (x:_) = Just x
-getSpecialSeparators [] = Nothing
+parseSeparator :: String -> Maybe Char
+parseSeparator = specials . map toLower
+  where specials "space" = Just ' '
+        specials "tab"   = Just '\t'
+        specials (x:_)   = Just x
+        specials []      = Nothing
 
 -- | 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 >>= getSpecialSeparators
+  catMaybes [ getDirective "separator" rules >>= parseSeparator
             , Just ',']
 
 -- | Read a Journal from the given CSV data (and filename, used for error