tartDuration :: IO (IO Clock.TimeSpec)
startDuration = do
    start <- getTime
    pure do
        end <- getTime
        pure (end - start)
  where
    getTime = Clock.getTime Clock.Monotonic

startDuration :: IO (IO Clock.TimeSpec)
startDuration = do
    start <- getTime
    pure do
        end <- getTime
        pure (end - start)
  where
    getTime = Clock.getTime Clock.Monotonic
startDuration = do
    start <- getTime
    pure do
        end <- getTime
        pure (end - start)
  where
    getTime = Clock.getTime Clock.Monotonic