@@ -118,7 +118,7 @@ data Env (es :: [Effect]) = Env
118118data Forks = Forks ForkId Int (IORef EnvRef) Forks | NoFork
119119
120120data EnvRef = EnvRef
121− { _capacity :: Int
121+ { _size :: Int
122122 , _data :: SmallMutableArray RealWorld Any
123123 , _relinkers :: SmallMutableArray RealWorld Any
124124 }
@@ -304,7 +304,7 @@ forkEnv env@(Env NoFork gref gen) = do
304304forkEnv (Env forks@(Forks _ baseIx lref0 olderForks) gref gen) = do
305305 fid <- newForkId gen
306306 lref <- emptyEnvRef
307− (_capacity <$> readIORef lref0) >>= \case
307+ (_size <$> readIORef lref0) >>= \case
308308 -- If the fork is empty, replace it as no data is lost.
309309 0 -> pure $ Env (Forks fid baseIx lref olderForks) gref gen
310310 _ -> pure $ Env (Forks fid baseIx lref forks) gref gen