@@ -57,7 +57,11 @@ type role Env nominal
5757--
5858-- - Modification of a specific element: /O(forks)/, usually /O(1)/.
5959--
60−data Env (es :: [Effect]) = Env Forks (IORef EnvRef) UniqueGen
60+data Env (es :: [Effect]) = Env
61+ { _forks :: Forks
62+ , _globalRef :: IORef EnvRef
63+ , _uniqueGen :: UniqueGen
64+ }
6165
6266-- | Local forks of the environment.
6367data Forks = Forks {-# UNPACK #-} ForkId (IORef EnvRef) Forks | NoFork