在PureScript中获取第二天的日期

import Data.Date (Date, addDays, fromMilliseconds, toMilliseconds)

getTomorrow :: Date -> Date
getTomorrow currentDate =
  let
    milliseconds = toMilliseconds currentDate
    tomorrowMilliseconds = milliseconds + (24 * 60 * 60 * 1000)
    tomorrowDate = fromMilliseconds tomorrowMilliseconds
  in
    tomorrowDate

import Data.Date (Date, fromMilliseconds, toMilliseconds)
import Data.Date.Locale (defaultLocale)
import Data.Date.Format (format)

main :: Effect Unit
main = do
  let currentDate = fromMilliseconds 0 -- 假设当前日期是1970年1月1日
      tomorrowDate = getTomorrow currentDate
      formattedDate = format defaultLocale "%Y-%m-%d" tomorrowDate
  log formattedDate -- 输出：1970-01-02