@@ -65,15 +65,15 @@ stepTime = do
6565 h1 <- fmap hundredsOfNanosSinceGregorianReform getCurrentTime
6666 if h1 > h0
6767 then do
68− writeIORef state $ State 0 h1
68+ writeIORef state $ State c0 h1
6969 return $ Just (c0, h1)
7070 else do
7171 let
7272 c1 = succ c0
7373 if c1 < 2^14
7474 then do
75− writeIORef state $ State c1 h0
76− return $ Just (c1, h0)
75+ writeIORef state $ State c1 h1
76+ return $ Just (c1, h1)
7777 else do
7878 return Nothing
7979
@@ -81,7 +81,7 @@ stepTime = do
8181{-# NOINLINE state #-}
8282state = unsafePerformIO $ do
8383 h0 <- fmap hundredsOfNanosSinceGregorianReform getCurrentTime
84− newIORef $ State 0 h0
84+ newIORef $ State 0 h0 -- the 0 should be a random number
8585
8686
8787data State = State