[debug] tx-cost compute cost of contest debugging

input-output-hk · Jun 24, 2022 · 7588b53 · 7588b53
1 parent 76ac25b
commit 7588b53
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 17 deletions.
diff --git a/hydra-node/exe/tx-cost/Main.hs b/hydra-node/exe/tx-cost/Main.hs
@@ -70,26 +70,26 @@ main =
 
 writeTransactionCostMarkdown :: Handle -> IO ()
 writeTransactionCostMarkdown hdl = do
-  initC <- costOfInit
-  commitC <- costOfCommit
-  collectComC <- costOfCollectCom
-  closeC <- costOfClose
+  -- initC <- costOfInit
+  -- commitC <- costOfCommit
+  -- collectComC <- costOfCollectCom
+  -- closeC <- costOfClose
   contestC <- costOfContest
-  abortC <- costOfAbort
-  fanoutC <- costOfFanOut
+  -- abortC <- costOfAbort
+  -- fanoutC <- costOfFanOut
   hPut hdl $
     encodeUtf8 $
       unlines $
         pageHeader
           <> intersperse
             ""
-            [ initC
-            , commitC
-            , collectComC
-            , closeC
-            , contestC
-            , abortC
-            , fanoutC
+            -- [ initC
+            -- , commitC
+            -- , collectComC
+            -- , closeC
+            [ contestC
+            -- , abortC
+            -- , fanoutC
             ]
 
 -- NOTE: Github Actions CI depends on the number of header lines, see

diff --git a/hydra-node/exe/tx-cost/TxCost.hs b/hydra-node/exe/tx-cost/TxCost.hs
@@ -128,13 +128,13 @@ computeContestCost = do
   pure $ interesting <> limit
  where
   compute numParties = do
-    (st, tx) <- generate $ genContestTx numParties
+    (st, tx) <- trace ("generating.." <> show numParties) $ generate $ genContestTx numParties
     let utxo = getKnownUTxO st
-    case checkSizeAndEvaluate tx utxo of
+    case trace ("evaluating.." <> show numParties) checkSizeAndEvaluate tx utxo of
       Just (txSize, memUnit, cpuUnit) ->
-        pure $ Just (NumParties numParties, txSize, memUnit, cpuUnit)
+        trace ("got Just for " <> show numParties) pure $ Just (NumParties numParties, txSize, memUnit, cpuUnit)
       Nothing ->
-        pure Nothing
+        trace ("got Nothing for " <> show numParties) pure Nothing
 
 computeAbortCost :: IO [(NumParties, TxSize, MemUnit, CpuUnit)]
 computeAbortCost =