handle plutus correctly

IntersectMBO · Feb 1, 2024 · 66a50cf · 66a50cf
1 parent f74ad71
commit 66a50cf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cardano-db-sync/src/Cardano/DbSync/Config.hs b/cardano-db-sync/src/Cardano/DbSync/Config.hs
@@ -100,6 +100,8 @@ plutusWhitelistCheckTxOut :: SyncEnv -> [Generic.TxOut] -> Bool
 plutusWhitelistCheckTxOut syncEnv txOuts = do
   let iopts = soptInsertOptions $ envOptions syncEnv
   case ioPlutusExtra iopts of
+    PlutusEnable -> True
+    PlutusDisable -> False
     PlutusWhitelistScripts whitelist -> do
       -- we map over our txOuts and check if txOutAddress OR txOutScript are in the whitelist
       let whitelistCheck =
@@ -117,4 +119,3 @@ plutusWhitelistCheckTxOut syncEnv txOuts = do
             )
               <$> txOuts
       any isJust whitelistCheck
-    _ -> False