ref: fe0aaa9d60284e366f09b362e4a5532a9d3bef88
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