mit-3qvpPyAi6mH-6: src/Mit/Clock.hs

module Mit.Clock
  ( getCurrentTime,
  )
where

import Mit.Prelude
import qualified System.Clock as Clock

getCurrentTime :: IO Word64
getCurrentTime = do
  Clock.TimeSpec {sec, nsec} <- Clock.getTime Clock.Realtime
  pure (fromIntegral (1_000_000_000 * sec + nsec))