ref: e494ac5786800ae9d7e71f0677bd008a8bca8c83
dir: /ghc/System/IO/TimeMilli.hs/
module System.IO.TimeMilli(getTimeMilli) where import Data.Time import Data.Time.Clock.POSIX getTimeMilli :: IO Int getTimeMilli = floor . (1000 *) . nominalDiffTimeToSeconds . utcTimeToPOSIXSeconds <$> getCurrentTime