orion/purescript-csv-stream
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: warning message

Browse Source
This commit is contained in:
orion 2024-05-14 11:40:05 -05:00
parent 7793f1597a
commit bed95814a4
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data.CSV.Record.purs
View File

@ -40,7 +40,7 @@ instance (RowToList r (Cons k v tailrl), IsSymbol k, ReadCSV v, Lacks k tail, Co
readCSVRecord cols vals = do readCSVRecord cols vals = do
let let
k = reflectSymbol (Proxy @k) k = reflectSymbol (Proxy @k)
pos <- liftMaybe (pure $ ForeignError $ "row too long; did not expect value " <> k) $ Map.lookup k cols pos <- liftMaybe (pure $ ForeignError $ "reached end of row looking for column " <> k) $ Map.lookup k cols
let valraw = fromMaybe "" $ Array.index vals pos let valraw = fromMaybe "" $ Array.index vals pos
val <- readCSV @v valraw val <- readCSV @v valraw
tail <- readCSVRecord @tail @tailrl cols vals tail <- readCSVRecord @tail @tailrl cols vals