debug logging

kadena-io · Jan 8, 2024 · 902e6d3 · 902e6d3
1 parent 92933c8
commit 902e6d3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Pact/Native/Capabilities.hs b/src/Pact/Native/Capabilities.hs
@@ -278,6 +278,8 @@ enforceVerifierDef = defRNative
   enforceVerifier :: RNativeFun e
   enforceVerifier i as = case as of
     [TLitString verName] -> do
+      vs <- view eeMsgVerifiers
+      liftIO $ print vs
       views eeMsgVerifiers (Map.lookup (VerifierName verName)) >>= \case
         Just verCaps -> do
           inCap <- defcapInStack Nothing