Получение даты в Хаскеле в местном часовом поясе

Question

В настоящее время я использую приведенный ниже код в проекте
date :: IO (Integer,Int,Int) -- :: (year,month,day)
date = getCurrentTime >>= return . toGregorian . utctDay

Однако он не дает правильную локальную дату при запуске.Я выполнил это в 1:00 26.04.11, но функция выдает (2011, 4, 25).
Я понимаю, что utctDay относится к UTC и, следовательно, не является локальной системной датой, но возможно ли получить такой же формат даты, как показано выше, но с правильной датой, зависящей отмашинная дата системы?

Answer 1

Попробуйте getZonedTime: http://hackage.haskell.org/packages/archive/time/1.2.0.4/doc/html/Data-Time-LocalTime.html#v:getZonedTime