我正在尝试将时间戳加载到mysql中.我所有的时间都是UTCTime对象. HDBC MysqL实现似乎不喜欢UTCTime对象,尽管内部文档说它将所有时间都视为UTC时间.我相信我需要将UTCTime转换为EpochTime,因为它看起来像HDBC MysqL实现支持绑定sqlEpochTime.我无法弄清楚如何获取我的UTCTime并从中获取EpochTime.
最佳答案
这是现在的解决方法：
import Data.Time.Clock (UTCTime)
import Data.Time.Clock.POSIX (utcTimeToPOSIXSeconds)
import Database.HDBC (sqlValue (sqlEpochTime))
-- until HDBC-MysqL fixes it. use instead of sqlUTCTime (data constructor)
sqlUTCTime :: UTCTime -> sqlValue
sqlUTCTime = sqlEpochTime . floor . utcTimeToPOSIXSeconds
3周前我给Chris Waterson(HDBC-MysqL的mainainer)发了一个修复程序,他说他会把它合并到下一个版本中.