shithub: MicroHs

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