pin2

src/Pact/Runtime/Capabilities.hs

@@ -42,13 +42,15 @@ import Data.Text (Text)
 import Data.Maybe(fromMaybe)
 import qualified Data.Map.Strict as M
 import qualified Data.Set as S
+import qualified Data.Text as T
 
 import Pact.Types.Capability
 import Pact.Types.PactValue
 import Pact.Types.Pretty
 import Pact.Types.Runtime
 import Pact.Runtime.Utils
 
+import Debug.Trace
 
 -- | Tie the knot with Pact.Eval by having caller supply `apply` etc
 type ApplyMgrFun e = Def Ref -> PactValue -> PactValue -> Eval e PactValue
@@ -294,6 +296,8 @@ checkSigCaps sigs = go
       qn <- MaybeT findFirstUserCall
       (allowSet, wmh) <- hoistMaybe $ M.lookup qn whitelist
       mh <- MaybeT $ lookupModuleHash def (_qnQual qn)
+      traceM $ "CURR MOD HASH: " <> T.unpack (asString mh)
+      traceM $ "PINNED MODULEHASH: " <> T.unpack (asString wmh)
       guard (mh == wmh)
       pure allowSet