testNominalDiffTimeToMinute :: NominalDiffTime
testNominalDiffTimeToMinute =
  let midnight = UTCTime testDay 0
      theTime  = UTCTime testDay $ timeOfDayToTime (TimeOfDay 12 12 0)
  in diffUTCTime theTime midnight
testNominalDiffTimeToMinute :: NominalDiffTime
testNominalDiffTimeToMinute =
  let midnight = UTCTime testDay 0
      theTime  = UTCTime testDay $ timeOfDayToTime (TimeOfDay 12 12 0)
  in diffUTCTime theTime midnight
testNominalDiffTimeToMinute =
  let midnight = UTCTime testDay 0
      theTime  = UTCTime testDay $ timeOfDayToTime (TimeOfDay 12 12 0)
  in diffUTCTime theTime midnight