Start with ForkId 0
commit25b94578cb89313af572853cb9264ae4c8f6e510
authorAndrzej Rybczak <andrzej@rybczak.net>
dateSun 11 Jul 2021, 00:11 (5 years ago)
parentb9ec53d
src/Effectful/Internal/Env.hs+1−1
@@ -132,7 +132,7 @@ newtype ForkIdGen = ForkIdGen (IORef ForkId)
132132
133133-- | Create a new thread local 'ForkId' generator.
134134newForkIdGen :: IO ForkIdGen
135−newForkIdGen = ForkIdGen <$> newIORef (ForkId 1)
135+newForkIdGen = ForkIdGen <$> newIORef (ForkId 0)
136136
137137-- | Clone the 'ForkId' generator for use in a different thread.
138138cloneForkIdGen :: ForkIdGen -> IO ForkIdGen