From b007c19d3c0823f805d8ba1639af3e3589b9d479 Mon Sep 17 00:00:00 2001 From: Edmund Noble Date: Mon, 16 Dec 2024 02:53:31 -0500 Subject: [PATCH] Add HasCallStack to help debugging Rosetta errors --- test/unit/Chainweb/Test/Rosetta/RestAPI.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/test/unit/Chainweb/Test/Rosetta/RestAPI.hs b/test/unit/Chainweb/Test/Rosetta/RestAPI.hs index b17c889854..ee43bd1cb9 100644 --- a/test/unit/Chainweb/Test/Rosetta/RestAPI.hs +++ b/test/unit/Chainweb/Test/Rosetta/RestAPI.hs @@ -172,6 +172,7 @@ accountBalanceTests tio envIo = where req = AccountBalanceReq nid (AccountId "sender00" Nothing Nothing) Nothing + checkBalance :: HasCallStack => AccountBalanceResp -> Decimal -> IO () checkBalance resp bal1 = do let b0 = head $ _accountBalanceResp_balances resp b1 = kdaToRosettaAmount bal1