From 4e4f406bee406ec36bc36555d225d331da6d4904 Mon Sep 17 00:00:00 2001
From: Luigy Leon <luigy.leon@obsidian.systems>
Date: Mon, 2 Aug 2021 14:16:09 -0400
Subject: [PATCH] Add time actions to PAB Simulator

Fixes #3669
---
 plutus-pab/src/Plutus/PAB/Core/ContractInstance.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/plutus-pab/src/Plutus/PAB/Core/ContractInstance.hs b/plutus-pab/src/Plutus/PAB/Core/ContractInstance.hs
index 30f729373e9..b78569feac8 100644
--- a/plutus-pab/src/Plutus/PAB/Core/ContractInstance.hs
+++ b/plutus-pab/src/Plutus/PAB/Core/ContractInstance.hs
@@ -193,12 +193,14 @@ stmRequestHandler = fmap sequence (wrapHandler (fmap pure nonBlockingRequests) <
         <> RequestHandler.handleOwnInstanceIdQueries @effs
         <> RequestHandler.handleAddressChangedAtQueries @effs
         <> RequestHandler.handleCurrentSlotQueries @effs
+        <> RequestHandler.handleCurrentTimeQueries @effs
 
     -- requests that wait for changes to happen
     blockingRequests =
         wrapHandler (processAwaitSlotRequestsSTM @effs)
         <> wrapHandler (processTxStatusChangeRequestsSTM @effs)
         <> processEndpointRequestsSTM @effs
+        <> RequestHandler.handleTimeNotifications @effs
 
 -- | Start the thread for the contract instance
 startSTMInstanceThread' ::