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

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

$date "+%s%3N"
1489694389603

使用 time包：

>使用getPOSIXTime,返回NominalDiffTime.这表示小数秒,精度为10-12秒.
>乘以1000即可将秒数转换为毫秒数.
> NominalDiffTime实现了RealFrac类,因此您可以使用round转换为整数.

import Data.Time.Clock.POSIX (getPOSIXTime)

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