shithub: MicroHs

ref: a7c4958176ee0042ac9e88cf8add22aa67ffe706
dir: /ghc/System/IO/TimeMilli.hs/

View raw version 
module System.IO.TimeMilli(getTimeMilli) where
import Data.Time
import Data.Time.Clock.POSIX

getTimeMilli :: IO Int
getTimeMilli  = floor . (1000 *) . nominalDiffTimeToSeconds . utcTimeToPOSIXSeconds <$> getCurrentTime