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