import qualified Data.Time.Clock as T difftime :: T.DiffTime diffTimeToTimeOfDay difftime
import qualified Data.Time.Clock as T timeofday :: T.TimeOfDay diffTimeToTimeOfDay $ T.timeOfDayToTime timeofday