bump plutarch to staging rev

2022-03-11 18:05:30 +01:00 · 2022-03-11 18:05:30 +01:00 · 7003c4556e
commit 7003c4556e
parent 93dcd14847
7 changed files with 120 additions and 74 deletions
--- a/agora/Agora/Stake.hs
+++ b/agora/Agora/Stake.hs
@ -202,8 +202,8 @@ stakePolicy _stake =

                    -- TODO: Needs to be >=, rather than ==
                    let valueCorrect = pdata value #== pdata expectedValue
-                    ptraceIfFalse "ownerSignsTransaction" ownerSignsTransaction
-                      #&& ptraceIfFalse "valueCorrect" valueCorrect
+                    ownerSignsTransaction
+                      #&& valueCorrect
          popaque (pconstant ())

    pif (0 #< mintedST) minting burning