diff options
| author | Brian Campbell | 2018-01-24 12:18:23 +0000 |
|---|---|---|
| committer | Brian Campbell | 2018-01-25 18:59:07 +0000 |
| commit | 6c2c957f14219f2234e675aac9960d44eaa73acb (patch) | |
| tree | ea2012605e61eac677b63e073c4247a44d863bf8 /src | |
| parent | 063e97bf8115759aea224a6ba288db8faace616f (diff) | |
Missing type expansion
Diffstat (limited to 'src')
| -rw-r--r-- | src/monomorphise.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 7bcd33dd..9cc1c404 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -2263,7 +2263,7 @@ let deps_of_uvar kid_deps arg_deps = function | U_typ typ -> deps_of_typ kid_deps arg_deps typ let mk_subrange_pattern vannot vstart vend = - let (_,len,ord,typ) = vector_typ_args_of (typ_of_annot vannot) in + let (_,len,ord,typ) = vector_typ_args_of (Env.base_typ_of (env_of_annot vannot) (typ_of_annot vannot)) in match ord with | Ord_aux (Ord_var _,_) -> None | Ord_aux (ord',_) -> |