shithub: MicroHs

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