@@ -70,7 +70,7 @@ updateWithDelay clock precision timeVar = do
7070-- writing to it.
7171asyncClock :: Clock -> Double -> IO (ThreadId, Prim.IORef MicroSecond64)
7272asyncClock clock g = do
73− timeVar <- Prim.newIORef undefined
73+ timeVar <- Prim.newIORef 0
7474 updateTimeVar clock timeVar
7575 tid <- forkManaged $ forever (updateWithDelay clock g timeVar)
7676 return (tid, timeVar)