在本地时区获取 Haskell 中的日期

Question

我目前在一个项目中使用下面的代码
date :: IO (Integer,Int,Int) -- :: (year,month,day)
date = getCurrentTime >>= return . toGregorian . utctDay

但是它在运行时没有给出正确的本地日期。我在 11 年 4 月 26 日凌晨 1 点运行此程序，但函数结果为 (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