phase 6

Author: carbolymer

cardano-node/src/Cardano/Node/Run.hs

@@ -585,6 +585,7 @@ handleSimpleNode blockType runP tracers nc networkMagic onKernel = do
                                      useBootstrapVar ledgerPeerSnapshotPathVar ledgerPeerSnapshotVar
                                      rpcConfigVar
                 rnNodeKernelHook nodeArgs registry nodeKernel
+                writeIORef nodeKernelAccessRef . Just $ mkNodeKernelAccess blockType nodeKernel
           }
           StdRunNodeArgs
             { srnBfcMaxConcurrencyBulkSync    = unMaxConcurrencyBulkSync <$> ncMaxConcurrencyBulkSync nc
@@ -860,7 +861,7 @@ rpcServerLoop :: Tracer IO (StartupTrace blk)
               -> Tracer IO TraceRpc
               -> StrictTVar IO RpcConfig
               -> NetworkMagic
-              -> IORef (Maybe (NodeKernelAccess IO))
+              -> IORef (Maybe NodeKernelAccess)
               -> IO ()
 rpcServerLoop startupTracer rpcTracer rpcConfigVar networkMagic nodeKernelAccessRef = go
   where