From 755c3d3dbbd9b3f635acd2e5c05f856dd6703a88 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 11 May 2023 15:34:31 -1000 Subject: [PATCH] ;dev: csv: refactor --- hledger-lib/Hledger/Read/CsvReader.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index 49d392a92..fac2bc6bb 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -63,7 +63,7 @@ import Safe (atMay, headMay, lastMay, readMay) import System.Directory (doesFileExist) import System.FilePath ((), takeDirectory, takeExtension, takeFileName) import qualified Data.Csv as Cassava -import qualified Data.Csv.Parser.Megaparsec as CassavaMP +import qualified Data.Csv.Parser.Megaparsec as CassavaMegaparsec import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as BL import Data.Foldable (asum, toList) @@ -800,7 +800,7 @@ parseCsv separator filePath csvdata = ExceptT $ parseCassava :: Char -> FilePath -> Text -> Either String CSV parseCassava separator path content = either (Left . errorBundlePretty) (Right . parseResultToCsv) <$> - CassavaMP.decodeWith (decodeOptions separator) Cassava.NoHeader path $ + CassavaMegaparsec.decodeWith (decodeOptions separator) Cassava.NoHeader path $ BL.fromStrict $ T.encodeUtf8 content decodeOptions :: Char -> Cassava.DecodeOptions