From 8eaad8a39c6f00e5f87be94dfadd2f63cdf0c9c2 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Wed, 1 May 2024 10:25:08 -0500
Subject: [PATCH] fix: more bugs

---
 src/Data.CSV.Record.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data.CSV.Record.purs b/src/Data.CSV.Record.purs
index 64d35d0..4cdf3b5 100644
--- a/src/Data.CSV.Record.purs
+++ b/src/Data.CSV.Record.purs
@@ -42,7 +42,7 @@ instance (RowToList r (Cons k v tailrl), IsSymbol k, ReadCSV v, Lacks k tail, Co
     pos <- liftMaybe (pure $ ForeignError $ "row too long; did not expect value " <> k) $ Map.lookup k cols
     let valraw = fromMaybe "" $ Array.index vals pos
     val <- readCSV @v valraw
-    tail <- readCSVRecord @tail @tailrl cols (fromMaybe [] $ Array.deleteAt pos vals)
+    tail <- readCSVRecord @tail @tailrl cols vals
     pure $ Record.insert (Proxy @k) val tail
 
 instance ReadCSVRecord () Nil where