32 lines
829 B
Haskell
32 lines
829 B
Haskell
|
{-# language LambdaCase #-}
|
||
|
|
|
||
|
|
-- A variant of CSV encoding that does not perform
|
||
|
|
-- any escaping or quoting. This is in its own module
|
||
|
|
-- to make it easy to analyze the GHC Core that it
|
||
|
|
-- gets compiled to.
|
||
|
|
module SimpleCsv
|
||
|
|
( encodeRows
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Cell (Cell(..))
|
||
|
|
import Data.Primitive (SmallArray)
|
||
|
|
|
||
|
|
import qualified Data.Foldable as F
|
||
|
|
import qualified Data.ByteArray.Builder as B
|
||
|
|
|
||
|
|
encodeRows :: SmallArray (SmallArray Cell) -> B.Builder
|
||
|
|
encodeRows = F.foldr
|
||
|
|
(\r x -> encodeSimpleCsvRow r (B.ascii '\n' <> x))
|
||
|
|
mempty
|
||
|
|
|
||
|
|
encodeSimpleCsvRow :: SmallArray Cell -> B.Builder -> B.Builder
|
||
|
|
encodeSimpleCsvRow cs b = F.foldr
|
||
|
|
(\c x -> encodeSimpleCsvCell c <> B.ascii ',' <> x)
|
||
|
|
b
|
||
|
|
cs
|
||
|
|
|
||
|
|
encodeSimpleCsvCell :: Cell -> B.Builder
|
||
|
|
encodeSimpleCsvCell = \case
|
||
|
|
CellNumber n -> B.word32Dec n
|
||
|
|
CellString t -> B.shortTextUtf8 t
|