diff options
| author | Brian Campbell | 2017-08-17 10:58:00 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-08-17 10:58:00 +0100 |
| commit | bc156a0c30ddc4e09586ec43e901ce94832bc8e3 (patch) | |
| tree | 5fbb467a0c0f4882b8c1b4add4c730a308af3bab /src/monomorphise.ml | |
| parent | f88cb793118d28d061fdee4d5bd8317f541136b8 (diff) | |
| parent | 9f013687086937df8be81dd6a0ebd86fc750abf7 (diff) | |
Merge branch 'experiments' of bitbucket.org:Peter_Sewell/sail into mono-experiments
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 a9ddd1a7..d9ee73b8 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 = |