如何在Haskell中获得毫秒精度的unix时间戳？

Question

这个shell命令的Haskell等价物是什么？

$ date "+%s%3N"
1489694389603

Answer 1

使用time包：

1. 使用getPOSIXTime，返回NominalDiffTime。这表示小数秒数，精度为10 ^-12 秒。

2. 乘以1000将秒数转换为毫秒数。

3. NominalDiffTime实现RealFrac类，因此您可以使用round转换为整数。

import Data.Time.Clock.POSIX (getPOSIXTime)

λ> (round . (* 1000)) <$> getPOSIXTime
1489694668011