From e35d0b7865578237d6397c91c8e9f0a9e0205640 Mon Sep 17 00:00:00 2001 From: Stephen Morgan Date: Tue, 16 Nov 2021 12:29:21 +1100 Subject: [PATCH] fix: csv: Successfully parse empty csv file. (#1183) --- hledger-lib/Hledger/Read/CsvReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index 21d368b94..13c991543 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -786,7 +786,7 @@ parseCsv :: Char -> FilePath -> Text -> IO (Either String CSV) parseCsv separator filePath csvdata = case filePath of "-" -> parseCassava separator "(stdin)" <$> T.getContents - _ -> return $ parseCassava separator filePath csvdata + _ -> return $ if T.null csvdata then Right mempty else parseCassava separator filePath csvdata parseCassava :: Char -> FilePath -> Text -> Either String CSV parseCassava separator path content =