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

Question

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

但是它在运行时没有给出正确的本地日期。我在26/04/11凌晨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