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

;lib: csv: note cause of #1087

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2019-09-14 02:39:59 -07:00
parent f92b2fe6ef
commit 180f4baedb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read.hs
View File

@ -307,6 +307,8 @@ readJournal iopts mfile txt =
tryReaders :: InputOpts -> Maybe FilePath -> [Reader] -> Text -> IO (Either String Journal) tryReaders :: InputOpts -> Maybe FilePath -> [Reader] -> Text -> IO (Either String Journal)
tryReaders iopts mpath readers txt = firstSuccessOrFirstError [] readers tryReaders iopts mpath readers txt = firstSuccessOrFirstError [] readers
where where
-- TODO: #1087 when parsing csv with -f -, if the csv (rules) parser fails,
-- we would rather see that error, not the one from the journal parser
firstSuccessOrFirstError :: [String] -> [Reader] -> IO (Either String Journal) firstSuccessOrFirstError :: [String] -> [Reader] -> IO (Either String Journal)
firstSuccessOrFirstError [] [] = return $ Left "no readers found" firstSuccessOrFirstError [] [] = return $ Left "no readers found"
firstSuccessOrFirstError errs (r:rs) = do firstSuccessOrFirstError errs (r:rs) = do