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