Skip to content
Browse files

Fix build

  • Loading branch information...
1 parent f2bf695 commit 9eeea09549395c261e040b25c561b23b6437373f @Shimuuar committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 Data/Csv/Encoding.hs
View
4 Data/Csv/Encoding.hs
@@ -254,7 +254,7 @@ csv !opts = do
return $! V.fromList vals
where
records = do
- !r <- record (decDelimiter opts)
+ !r <- record opts
if blankLine r
then (endOfLine *> records) <|> pure []
else case runParser (parseRecord r) of
@@ -276,7 +276,7 @@ csvWithHeader !opts = do
return (hdr, v)
where
records hdr = do
- !r <- record (decDelimiter opts)
+ !r <- record opts
if blankLine r
then (endOfLine *> records hdr) <|> pure []
else case runParser (convert hdr r) of

0 comments on commit 9eeea09

Please sign in to comment.
Something went wrong with that request. Please try again.