33 lines
1.2 KiB
Haskell
33 lines
1.2 KiB
Haskell
|
{-# language OverloadedLists #-}
|
||
|
|
{-# language OverloadedStrings #-}
|
||
|
|
|
||
|
|
module Cell
|
||
|
|
( Cell(..)
|
||
|
|
, cells
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Data.Word (Word32)
|
||
|
|
import Data.Text.Short (ShortText)
|
||
|
|
import Data.Primitive (SmallArray)
|
||
|
|
|
||
|
|
-- A cell in a CSV file
|
||
|
|
data Cell
|
||
|
|
= CellString !ShortText
|
||
|
|
| CellNumber !Word32
|
||
|
|
|
||
|
|
-- Some sample data to encode as a CSV
|
||
|
|
cells :: SmallArray (SmallArray Cell)
|
||
|
|
cells =
|
||
|
|
[ [ CellString "Randy", CellString "Gutiérrez", CellNumber 41, CellNumber 343 ]
|
||
|
|
, [ CellString "Édith", CellString "Piaf", CellNumber 63, CellNumber 453 ]
|
||
|
|
, [ CellString "Martha", CellString "Washington", CellNumber 51, CellNumber 634 ]
|
||
|
|
, [ CellString "Julius", CellString "Caesar", CellNumber 1, CellNumber 6922 ]
|
||
|
|
, [ CellString "Robert", CellString "Redford", CellNumber 24, CellNumber 617 ]
|
||
|
|
, [ CellString "Violet", CellString "Crawley", CellNumber 71, CellNumber 150 ]
|
||
|
|
, [ CellString "Lázaro", CellString "Cárdenas", CellNumber 58, CellNumber 299 ]
|
||
|
|
, [ CellString "Anastasia", CellString "San Martin", CellNumber 103, CellNumber 3214 ]
|
||
|
|
, [ CellString "Mad", CellString "Max", CellNumber 37, CellNumber 918 ]
|
||
|
|
, [ CellString "Sidonie-Gabrielle", CellString "Collette", CellNumber 25, CellNumber 904 ]
|
||
|
|
]
|
||
|
|
|