data ValueRecord a = ValueRecord {
    time  :: Data.Time.UTCTime,
    value :: a
}