ref: 5c0c2769456ea4e471e9b53fdee234405942490a
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