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

Question

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

但是它在运行时没有给出正确的本地日期.我已经在凌晨1点26分运行了这个功能,但功能导致了(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