diff options
Diffstat (limited to 'src/monomorphise.ml')
| -rw-r--r-- | src/monomorphise.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 27b5237e..2849b466 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -56,8 +56,7 @@ let subst_src_typ substs t = match ta with | Typ_arg_nexp ne -> Typ_arg_aux (Typ_arg_nexp (s_snexp ne),l) | Typ_arg_typ t -> Typ_arg_aux (Typ_arg_typ (s_styp t),l) - | Typ_arg_order _ - | Typ_arg_effect _ -> targ + | Typ_arg_order _ -> targ in s_styp t let make_vector_lit sz i = |