From 9011aaa5ba77880a6421a7696056c362973673c2 Mon Sep 17 00:00:00 2001
From: Aleksandar Dimitrov <git@aleks.bg>
Date: Sun, 5 Jan 2020 21:08:41 +0100
Subject: [PATCH] Refactor getSeparator

---
 hledger-lib/Hledger/Read/CsvReader.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 8997a43c7..3906bff5c 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -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: