ref: 1872c0a0af9c731101827bfc8c60d7b880edf511
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