From 94c2d97a7968f0c5f2a2bc0ecad28b577b80e646 Mon Sep 17 00:00:00 2001
From: Michael Karg <michael.karg@iohk.io>
Date: Thu, 16 Jan 2025 14:21:11 +0100
Subject: [PATCH 1/2] NodeKernel: expose getBlockchainTime

---
 .../Ouroboros/Consensus/NodeKernel.hs                          | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs b/ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs
index c65159737c..4d645bdd54 100644
--- a/ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs
+++ b/ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs
@@ -166,6 +166,7 @@ data NodeKernel m addrNTN addrNTC blk = NodeKernel {
                              :: StrictTVar m OutboundConnectionsState
     , getDiffusionPipeliningSupport
                              :: DiffusionPipeliningSupport
+    , getBlockchainTime      :: BlockchainTime m
     }
 
 -- | Arguments required when initializing a node
@@ -208,6 +209,7 @@ initNodeKernel ::
 initNodeKernel args@NodeKernelArgs { registry, cfg, tracers
                                    , chainDB, initChainDB
                                    , blockFetchConfiguration
+                                   , btime
                                    , gsmArgs
                                    , peerSharingRng
                                    , publicPeerSelectionStateVar
@@ -333,6 +335,7 @@ initNodeKernel args@NodeKernelArgs { registry, cfg, tracers
       , getOutboundConnectionsState
                                 = varOutboundConnectionsState
       , getDiffusionPipeliningSupport
+      , getBlockchainTime       = btime
       }
   where
     blockForgingController :: InternalState m remotePeer localPeer blk

From 4efdfb6c1806f816ef7579622a65dfcd125aed7a Mon Sep 17 00:00:00 2001
From: Michael Karg <michael.karg@iohk.io>
Date: Fri, 24 Jan 2025 15:21:59 +0100
Subject: [PATCH 2/2] ouroboros-consensus-diffusion: update changelog

---
 .../changelog.d/mkarg-expose-btime.md                          | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100644 ouroboros-consensus-diffusion/changelog.d/mkarg-expose-btime.md

diff --git a/ouroboros-consensus-diffusion/changelog.d/mkarg-expose-btime.md b/ouroboros-consensus-diffusion/changelog.d/mkarg-expose-btime.md
new file mode 100644
index 0000000000..5ff972546f
--- /dev/null
+++ b/ouroboros-consensus-diffusion/changelog.d/mkarg-expose-btime.md
@@ -0,0 +1,3 @@
+### Non-Breaking
+
+- Expose blockchain time as `getBlockchainTime :: BlockchainTime m` in the `NodeKernel`.
\ No newline at end of file