MicroHs-0.11.4.0: hugs/System/IO/TimeMilli.hs

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

getTimeMilli :: IO Int
getTimeMilli  = fmap (floor . (1000 *) . toRational . utcTimeToPOSIXSeconds) getCurrentTime