module Villefort.Definitions where

data VConfig  = VConfig {
  daily :: [IO [String]],
  monthly :: [[String]],
  yearly :: [[String]],
  weekly :: Weekly,
  colors :: [String],
  port :: Int,
  noCustom :: Bool,
  showDatabase :: Bool,
  database :: String
  }

data Weekly = Weekly {
  monday :: [IO[String]],
  tuesday :: [IO[String]],
  wednesday :: [IO[String]],
  thursday :: [IO[String]],
  friday :: [IO[String]],
  saturday :: [IO[String]],
  sunday ::[IO[String]]
                     }