From 1428291dd6cae68ec2fcbc02dc0f80a50801f8de Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Apr 2020 11:31:28 -0700
Subject: [PATCH] don't let case of file extension break file format detection
 (#1225)

---
 hledger-lib/Hledger/Read/JournalReader.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index c04044096..9810ea9aa 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -82,6 +82,7 @@ import Control.Monad.IO.Class (MonadIO, liftIO)
 import Control.Monad.Except (ExceptT(..), runExceptT)
 import Control.Monad.State.Strict (get,modify',put)
 import Control.Monad.Trans.Class (lift)
+import Data.Char (toLower)
 import Data.Either (isRight)
 import qualified Data.Map.Strict as M
 #if !(MIN_VERSION_base(4,11,0))
@@ -144,7 +145,7 @@ findReader Nothing (Just path) =
     Nothing  -> headMay [r | r <- readers', ext `elem` rExtensions r]
   where
     (prefix,path') = splitReaderPrefix path
-    ext            = drop 1 $ takeExtension path'
+    ext            = map toLower $ drop 1 $ takeExtension path'
 
 -- | A file path optionally prefixed by a reader name and colon
 -- (journal:, csv:, timedot:, etc.).