{-# LANGUAGE FlexibleContexts #-}
module Villefort.Today where

import Control.Monad.Reader
import Villefort.Definitions
import Villefort.Database
import Villefort.Util
import Data.List

getSummary :: (MonadReader VConfig m, MonadIO m) => m String
getSummary = do
  dat <- getDone
  header <-  getHeader
  return ( header ++ (makeTable ["Subject","Time"] $ dat ++ [["Total", show$  total dat]]))