diff options
Diffstat (limited to 'typing/parmatch.ml')
| -rw-r--r-- | typing/parmatch.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/typing/parmatch.ml b/typing/parmatch.ml index a0d6722115..1194712d0f 100644 --- a/typing/parmatch.ml +++ b/typing/parmatch.ml @@ -135,7 +135,7 @@ let rec get_constr tag ty tenv = let find_label lbl lbls = try - let name,_,_ = List.nth lbls lbl.lbl_pos in + let name,_,_,_ = List.nth lbls lbl.lbl_pos in name with Failure "nth" -> Ident.create "*Unknown label*" |