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