simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-07 21:15:19 +03:00
Code Issues Projects Releases Wiki Activity

Use decode from Text

Browse Source
This commit is contained in:
Luca Molteni 2018-06-10 16:59:39 +02:00
parent 79f59fd28c
commit b7851e94c3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -63,7 +63,6 @@ import qualified Data.Csv as Cassava
import qualified Data.Csv.Parser.Megaparsec as CassavaMP import qualified Data.Csv.Parser.Megaparsec as CassavaMP
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Char8 as C
import Data.Foldable import Data.Foldable
import Data.Either import Data.Either
import Text.Megaparsec hiding (parse) import Text.Megaparsec hiding (parse)
@ -206,7 +205,7 @@ parseResultToCsv :: (Foldable t, Functor t) => t (t B.ByteString) -> CSV
parseResultToCsv = toListList . unpackFields parseResultToCsv = toListList . unpackFields
where where
toListList = toList . fmap toList toListList = toList . fmap toList
unpackFields = (fmap . fmap) C.unpack unpackFields = (fmap . fmap) (T.unpack . T.decodeUtf8)
printCSV :: CSV -> String printCSV :: CSV -> String
printCSV records = unlines (printRecord `map` records) printCSV records = unlines (printRecord `map` records)