ppx: (_:ty) is a catch-all case too (#640)

ocsigen · Nov 27, 2018 · b40964a · b40964a
1 parent 5cfa9da
commit b40964a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ppx/ppx_lwt.ml b/src/ppx/ppx_lwt.ml
@@ -19,7 +19,7 @@ let def_loc txt =
 let is_catchall case =
   let rec is_catchall_pat p = match p.ppat_desc with
     | Ppat_any | Ppat_var _ -> true
-    | Ppat_alias (p, _) -> is_catchall_pat p
+    | Ppat_alias (p, _) | Ppat_constraint (p,_) -> is_catchall_pat p
     | _ -> false
   in
   case.pc_guard = None && is_catchall_pat case.pc_lhs