diff options
Diffstat (limited to 'src/cjr.sml')
| -rw-r--r-- | src/cjr.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index 4c9cf4c3..d260e8b3 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -40,7 +40,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 @@ -55,7 +55,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 |