fix: csv: Successfully parse empty csv file. (#1183)

This commit is contained in:
Stephen Morgan 2021-11-16 12:29:21 +11:00 committed by Simon Michael
parent 87a7a586d4
commit e35d0b7865

View File

@ -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 =