Replace evalEitherM and readJsonFile with readJsonFileOk

palas · carbolymer · web-flow · commit 5e415e4a4db6 · 2025-04-23T21:13:54.000+02:00
Co-authored-by: Mateusz Galazyn &lt;228866+carbolymer@users.noreply.github.com&gt;
diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/Transaction/Build.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/Transaction/Build.hs
@@ -199,7 +199,7 @@ hprop_conway_calculate_plutus_script_cost_offline = propertyOnce $ H.moduleWorks
       , costOutFile
       ]
 
-  json :: Aeson.Value <- H.evalEitherM $ H.readJsonFile costOutFile
+  json :: Aeson.Value <- H.readJsonFileOk costOutFile
 
   lovelaceCost <- H.evalMaybe $ json ^? Aeson.nth 0 . Aeson.key "lovelaceCost" . Aeson._Number
   lovelaceCost === 34

Original file line number	Diff line number	Diff line change
`@@ -199,7 +199,7 @@ hprop_conway_calculate_plutus_script_cost_offline = propertyOnce $ H.moduleWorks`
`199`	`199`	`, costOutFile`
`200`	`200`	`]`
`201`	`201`
`202`		`- json :: Aeson.Value <- H.evalEitherM $ H.readJsonFile costOutFile`
	`202`	`+ json :: Aeson.Value <- H.readJsonFileOk costOutFile`
`203`	`203`
`204`	`204`	`lovelaceCost <- H.evalMaybe $ json ^? Aeson.nth 0 . Aeson.key "lovelaceCost" . Aeson._Number`
`205`	`205`	`lovelaceCost === 34`