diff options
Diffstat (limited to 'src/mono.sml')
-rw-r--r-- | src/mono.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono.sml b/src/mono.sml index f8c7dbfe..2c55721a 100644 --- a/src/mono.sml +++ b/src/mono.sml @@ -39,7 +39,7 @@ withtype typ = typ' located datatype patCon = PConVar of int - | PConFfi of string * string + | PConFfi of {mod : string, datatyp : string, con : string} datatype pat' = PWild @@ -54,7 +54,7 @@ datatype exp' = EPrim of Prim.t | ERel of int | ENamed of int - | ECon of int * exp option + | ECon of patCon * exp option | EFfi of string * string | EFfiApp of string * string * exp list | EApp of exp * exp |