move stats collection

- move stats collection to point before Tx submission

Author: mikekeke

src/BotPlutusInterface/Contract.hs

@@ -274,6 +274,9 @@ writeBalancedTx contractEnv (Right tx) = do
           , "Signatories (pkh): " <> Text.unwords (map pkhToText requiredSigners)
           ]
 
+    when (pabConf.pcCollectStats && signable) $
+      collectBudgetStats (Tx.txId tx) pabConf
+
     when (not pabConf.pcDryRun && signable) $ do
       newEitherT $ CardanoCLI.submitTx @w pabConf tx
 
@@ -284,9 +287,6 @@ writeBalancedTx contractEnv (Right tx) = do
     mvFiles (Files.txFilePath pabConf "raw" (Tx.txId tx)) (Files.txFilePath pabConf "raw" cardanoTxId)
     when signable $ mvFiles signedSrcPath signedDstPath
 
-    when contractEnv.cePABConfig.pcCollectStats $
-      collectBudgetStats cardanoTxId signedDstPath
-
     pure cardanoTx
   where
     mvFiles :: Text -> Text -> EitherT Text (Eff effs) ()
@@ -299,8 +299,8 @@ writeBalancedTx contractEnv (Right tx) = do
             , cmdOutParser = const ()
             }
 
-    collectBudgetStats txId txPath = do
-      let path = Text.unpack txPath
+    collectBudgetStats txId pabConf = do
+      let path = Text.unpack (Files.txFilePath pabConf "signed" (Tx.txId tx))
       b <- firstEitherT (Text.pack . show) $ newEitherT $ estimateBudget @w (Signed path)
       void $ newEitherT (Right <$> saveBudget @w txId b)