, connectPassword = pass conf
, connectDatabase = dbnm conf
}
, connectPassword = pass conf
, connectDatabase = dbnm conf
}
today <- liftIO getClockTime
let tomorrow = addToClockTime (noTimeDiff {tdDay = 1}) today
daystart x = (toUTCTime x) { ctHour = 0, ctMin = 0
today <- liftIO getClockTime
let tomorrow = addToClockTime (noTimeDiff {tdDay = 1}) today
daystart x = (toUTCTime x) { ctHour = 0, ctMin = 0