;lib: csv: note cause of #1087

[ci skip]
2019-09-14 02:39:59 -07:00 · 2019-09-14 02:39:59 -07:00 · 180f4baedb
commit 180f4baedb
parent f92b2fe6ef
1 changed files with 2 additions and 0 deletions
--- a/hledger-lib/Hledger/Read.hs
+++ b/hledger-lib/Hledger/Read.hs
@ -307,6 +307,8 @@ readJournal iopts mfile txt =
 tryReaders :: InputOpts -> Maybe FilePath -> [Reader] -> Text -> IO (Either String Journal)
 tryReaders iopts mpath readers txt = firstSuccessOrFirstError [] readers
  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 [] []        = return $ Left "no readers found"
    firstSuccessOrFirstError errs (r:rs) = do