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