fix: csv: Successfully parse empty csv file. (#1183)
This commit is contained in:
parent
87a7a586d4
commit
e35d0b7865
@ -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 =
|
||||
|
||||
Loading…
Reference in New Issue
Block a user