module Villefort.Config  where

import System.Process
import System.Environment.FindBin
import Villefort.Server
def = VConfig {
  daily = [[]],
  monthly =[[]],
  yearly =[[]],
  weekly = defWeekly,
  port = 3002
              }

defWeekly = Weekly {
  monday = [return []],
  tuesday =[return[]],
  wednesday = [return[]],
  thursday = [return[]],
  friday  = [return[]],
  saturday = [return[]],
  sunday  = [return []]
                   }

-- ghc -o /home/chris/.villefort/villefort /home/chris/.villefort/villefort.hs