Merge branch 'feature/more-subtraction' into 'dev'
Type subtraction also as nat->int->int and int->nat->int See merge request ligolang/ligo!228
This commit is contained in:
commit
bfb01d371a
@ -318,9 +318,8 @@ module Typer = struct
|
||||
| Some t -> ok t
|
||||
|
||||
let sub = typer_2 "SUB" @@ fun a b ->
|
||||
if (eq_2 (a , b) (t_int ()))
|
||||
then ok @@ t_int () else
|
||||
if (eq_2 (a , b) (t_nat ()))
|
||||
if (eq_1 a (t_int ()) || eq_1 a (t_nat ()))
|
||||
&& (eq_1 b (t_int ()) || eq_1 b (t_nat ()))
|
||||
then ok @@ t_int () else
|
||||
if (eq_2 (a , b) (t_timestamp ()))
|
||||
then ok @@ t_int () else
|
||||
|
Loading…
Reference in New Issue
Block a user