ligo/src/test/contracts/subtle_nontail_fail.mligo

let main (ps : unit * unit) : operation list * unit =
  if true
  then (failwith "This contract always fails" : operation list * unit)
  else (failwith "This contract still always fails" : operation list * unit)
New checks in the self_ast_typed pass: * Ast_typed stage is now aware of the main function name * main function type is checked against expected contract types * Tezos.self (returning contract type) is checked against main function type * In general, Ast_typed.compile signature has been changed to enable/disable contract-related checks 2020-03-04 15:38:10 +01:00			`let main (ps : unit * unit) : operation list * unit =`
Support always-failing conditionals 2020-01-06 14:19:14 -06:00			`if true`
New checks in the self_ast_typed pass: * Ast_typed stage is now aware of the main function name * main function type is checked against expected contract types * Tezos.self (returning contract type) is checked against main function type * In general, Ast_typed.compile signature has been changed to enable/disable contract-related checks 2020-03-04 15:38:10 +01:00			`then (failwith "This contract always fails" : operation list * unit)`
			`else (failwith "This contract still always fails" : operation list * unit)`