charter-0.1.1.1: app/Examples/Auto.hs

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeApplications #-}
module Examples.Auto where

import qualified Data.Text as T

import Charts

main :: IO ()
main = serveChart 8080 myAutoChart

myAutoChart :: Chart
myAutoChart = autoChartWithHeaders defaultChartOptions BarChart headers myData
  where
    headers :: [Column]
    headers = [StringColumn "Series", NumberColumn "Successes", NumberColumn "Inconclusive"]
    myData :: [(T.Text, Float, Int)]
    myData = [ ("A", 16, 20)
             , ("B", 11, 23)
             , ("C", 9, 25)
             , ("D", 8, 34)
             ]