Fix build

input-output-hk · Jan 2, 2025 · 0d8a0d3 · 0d8a0d3
1 parent 2b7c2ce
commit 0d8a0d3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/lib/Wst/Offchain/Env.hs b/src/lib/Wst/Offchain/Env.hs
@@ -357,7 +357,7 @@ addTransferEnv :: TransferLogicEnv -> CombinedEnv o d t r era -> CombinedEnv o d
 addTransferEnv de env =
   env{ceTransfer = Identity de }
 
-withTransfer :: MonadReader (CombinedEnv o Identity t r era) m => TransferLogicEnv -> ReaderT (CombinedEnv o Identity Identity r era) m a -> m a
+withTransfer :: MonadReader (CombinedEnv o d t r era) m => TransferLogicEnv -> ReaderT (CombinedEnv o d Identity r era) m a -> m a
 withTransfer dir action = do
   asks (addTransferEnv dir)
     >>= runReaderT action

diff --git a/src/lib/Wst/Server.hs b/src/lib/Wst/Server.hs
@@ -62,15 +62,18 @@ txApi =
   :<|> addToBlacklistEndpoint
   :<|> seizeAssetsEndpoint
 
-queryBlacklistedNodes :: forall era m.
+queryBlacklistedNodes :: forall era env m.
   ( MonadUtxoQuery m
   , C.IsBabbageBasedEra era
+  , MonadReader env m
+  , Env.HasDirectoryEnv env
   )
   => Proxy era
   -> SerialiseAddress (C.Address C.ShelleyAddr)
   -> m [C.Hash C.PaymentKey]
 queryBlacklistedNodes _ (SerialiseAddress addr) = do
-  let transferLogic = Env.mkTransferLogicEnv (paymentKeyHashFromAddress addr)
+  programmableBaseLogicCred <- asks (Env.programmableLogicBaseCredential . Env.directoryEnv)
+  let transferLogic = Env.mkTransferLogicEnv programmableBaseLogicCred (paymentKeyHashFromAddress addr)
       getHash =
         either (error "deserialiseFromRawBytes failed") id
         . C.deserialiseFromRawBytes (C.proxyToAsType $ Proxy @(C.Hash C.PaymentKey))