shithub: MicroHs

ref: 62044b52839f697afc20b623eb296488c02eaead
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