git.iko.soy/effectful
on master help sign in
Start with ForkId 0
25b9457Andrzej Rybczak
src/Effectful/Internal/Env.hs+1−1
compare with master
unifiedsplit
@@ -132,7 +132,7 @@ newtype ForkIdGen = ForkIdGen (IORef ForkId)
132
132
133-- | Create a new thread local 'ForkId' generator.
133-- | Create a new thread local 'ForkId' generator.
134newForkIdGen :: IO ForkIdGen
134newForkIdGen :: IO ForkIdGen
135−newForkIdGen = ForkIdGen <$> newIORef (ForkId 1)
135+newForkIdGen = ForkIdGen <$> newIORef (ForkId 0)
136
136
137-- | Clone the 'ForkId' generator for use in a different thread.
137-- | Clone the 'ForkId' generator for use in a different thread.
138cloneForkIdGen :: ForkIdGen -> IO ForkIdGen
138cloneForkIdGen :: ForkIdGen -> IO ForkIdGen