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

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

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