From bed95814a4ada82fa49a9cad6052e91d3fb201c1 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Tue, 14 May 2024 11:40:05 -0500
Subject: [PATCH] fix: warning message

---
 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 e57c5ef..8728d3d 100644
--- a/src/Data.CSV.Record.purs
+++ b/src/Data.CSV.Record.purs
@@ -40,7 +40,7 @@ instance (RowToList r (Cons k v tailrl), IsSymbol k, ReadCSV v, Lacks k tail, Co
   readCSVRecord cols vals = do
     let
       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
     val <- readCSV @v valraw
     tail <- readCSVRecord @tail @tailrl cols vals