Mark ppx-generated wildcard pattern of "try%lwt" and "match%lwt" as g…

…host
ocsigen · Sep 12, 2017 · fa4fa37 · fa4fa37
1 parent f3fd016
commit fa4fa37
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ppx/ppx_lwt.ml b/src/ppx/ppx_lwt.ml
@@ -30,7 +30,7 @@ let add_wildcard_case cases =
     List.exists is_catchall cases
   in
   if not has_wildcard
-  then cases @ [Exp.case [%pat? exn] [%expr Lwt.fail exn]]
+  then cases @ [Exp.case [%pat? exn] [%expr Lwt.fail exn]] [@metaloc Location.none]
   else cases
 
 (** {3 Internal names} *)