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

don't let case of file extension break file format detection (#1225)

Browse Source
This commit is contained in:
Simon Michael 2020-04-15 11:31:28 -07:00
parent e80b69fdc7
commit 1428291dd6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -82,6 +82,7 @@ import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Except (ExceptT(..), runExceptT) import Control.Monad.Except (ExceptT(..), runExceptT)
import Control.Monad.State.Strict (get,modify',put) import Control.Monad.State.Strict (get,modify',put)
import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Class (lift)
import Data.Char (toLower)
import Data.Either (isRight) import Data.Either (isRight)
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
#if !(MIN_VERSION_base(4,11,0)) #if !(MIN_VERSION_base(4,11,0))
@ -144,7 +145,7 @@ findReader Nothing (Just path) =
Nothing -> headMay [r | r <- readers', ext `elem` rExtensions r] Nothing -> headMay [r | r <- readers', ext `elem` rExtensions r]
where where
(prefix,path') = splitReaderPrefix path (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 -- | A file path optionally prefixed by a reader name and colon
-- (journal:, csv:, timedot:, etc.). -- (journal:, csv:, timedot:, etc.).