xlsx-templater-0.0.1: src/Test.hs

{-# LANGUAGE OverloadedStrings #-}
import Codec.Xlsx.Templater
import Data.Map
import Data.Time.Calendar
import Data.Time.LocalTime

test :: IO ()
test = run "tmpl.xlsx" "tmpl-out.xlsx" [(empty, TemplateSettings Rows 0, d1),
                                        (common, TemplateSettings Rows 3, d2),
                                        (empty, TemplateSettings Columns 1, d3)]
  where
    d1 = [fromList [("a", TplText "first row"), ("b", TplText "b1")],
          fromList [("a", TplText "second row should be here!"), ("b", TplText "b2")]]
    common = fromList [("common1", TplText "common first value"), ("commonDbl", TplDouble 42)]
    d2 =
      [fromList [("a", TplText "a value"),("b", TplText "b value"),("c", TplText "c value")],
       fromList [("a", TplText "a value'"),("b", TplDouble 1.23456),("c", TplLocalTime $ LocalTime (fromGregorian 2012 08 13) (TimeOfDay 12 13 14))]]
    d3 = [fromList [("x", TplText "first column"), ("z", TplText "z1")],
          fromList [("x", TplText "second column should be here!"), ("z", TplText "z2")],
          fromList [("x", TplText "column #3"), ("z", TplText "z3")]]

n = TplDouble
txt = TplText
dt d m y h mi s = TplLocalTime $ LocalTime (fromGregorian d m y) (TimeOfDay h mi s)
d d' m y = dt d' m y 0 0 0
t = dt 2000 1 1


repairData = replicate 10000 $ fromList 
             [("N", n 23456), ("Org", txt "XYZ Co."), ("Date", d 2012 1 13), ("Time", t 10 00 00), 
              ("CarNum", txt "X666YZ777"), ("SaleDate", d 2009 12 07), ("VIN", txt "WWWZZZ6KZBW666666"), 
              ("Run", n 77777)	, ("Brand", txt "BELAZ"), ("Model", txt "Tachila"), 
              ("Problem", txt "Something broken"), ("ProblemSystem", txt "Electornics"), 
              ("ProblemDetail", txt "No power"), ("ProblemCause", txt "Bug found"), 
              ("Weather", txt "Windy with some clouds"), ("HelpResult", txt "Removed bug"), 
              ("Status", txt "Fixed"), ("AppealType", txt "Evacuation")	, ("Evacuator", txt "BORYA Ltd."), 
              ("EvacuationCity", txt "Chicago"), ("SaleDealer", txt "Some greate Car Dealer"), 
              ("ProblemAddress", txt "Somewhere over the rainbow"), ("CustomerFirstName", txt "John"), 
              ("CustomerSurname", txt "Dow"), ("OrderNumber", txt "some"), ("RepairFinishDate",  d 2012 2 1), 
              ("CountryEvacuatorRun", txt "-"), ("CustomerPhone", txt "+7 (495) 666 6666"), 
              ("Comment", txt "some notes here"), ("Cost", n 6666.66), ("CostExplained", txt "10 * 666,666")]

main = run "data/Repairs-template.xlsx" "data/Repairs.xlsx" [(empty, TemplateSettings Rows 1, repairData)]