shithub: MicroHs

ref: 30ed73a98df14cb18296e7d2178227e6392a8ff7
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