diff options
Diffstat (limited to 'src/constant_propagation_mutrec.ml')
| -rw-r--r-- | src/constant_propagation_mutrec.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/constant_propagation_mutrec.ml b/src/constant_propagation_mutrec.ml index 683cc6f3..285ba45d 100644 --- a/src/constant_propagation_mutrec.ml +++ b/src/constant_propagation_mutrec.ml @@ -125,7 +125,7 @@ let generate_val_spec env id args l annot = mk_typquant in let typschm = mk_typschm tq' typ' in - mk_val_spec (VS_val_spec (typschm, generate_fun_id id args, (fun _ -> None), false)), + mk_val_spec (VS_val_spec (typschm, generate_fun_id id args, [], false)), ksubsts | _, Typ_aux (_, l) -> raise (Reporting.err_unreachable l __POS__ "Function val spec is not a function type") |