remove duplicated is_async function

Author: mununki

jscomp/frontend/ast_attributes.ml

@@ -166,14 +166,8 @@ let is_inline : attr -> bool =
 
 let has_inline_payload (attrs : t) = Ext_list.find_first attrs is_inline
 
-let is_await : attr -> bool =
- fun ({txt}, _) -> txt = "await" || txt = "res.await"
-
-let is_async : attr -> bool =
- fun ({txt}, _) -> txt = "async" || txt = "res.async"
-
-let has_await_payload (attrs : t) = Ext_list.find_first attrs is_await
-let has_async_payload (attrs : t) = Ext_list.find_first attrs is_async
+let has_await_payload (attrs : t) = Ext_list.find_first attrs Ast_await.is_await
+let has_async_payload (attrs : t) = Ext_list.find_first attrs Ast_async.is_async
 
 type derive_attr = {bs_deriving: Ast_payload.action list option} [@@unboxed]
 

jscomp/ml/ast_async.ml

@@ -1,3 +1,6 @@
+let is_async : Parsetree.attribute -> bool =
+  fun ({txt}, _) -> txt = "async" || txt = "res.async"
+
 let add_promise_type ?(loc = Location.none) ~async
     (result : Parsetree.expression) =
   if async then

jscomp/ml/ast_await.ml

@@ -1,3 +1,6 @@
+let is_await : Parsetree.attribute -> bool =
+  fun ({txt}, _) -> txt = "await" || txt = "res.await"
+
 let create_await_expression (e : Parsetree.expression) =
   let loc = e.pexp_loc in
   let unsafe_await =

jscomp/syntax/src/react_jsx_common.ml

@@ -64,9 +64,6 @@ let removeArity binding =
   in
   {binding with pvb_expr = removeArityRecord binding.pvb_expr}
 
-let is_async : Parsetree.attribute -> bool =
- fun ({txt}, _) -> txt = "async" || txt = "res.async"
-
 let async_component ~async expr =
   if async then
     let open Ast_helper in

jscomp/syntax/src/reactjs_jsx_v4.ml

@@ -910,8 +910,7 @@ let mapBinding ~config ~emptyLoc ~pstr_loc ~fileName ~recFlag binding =
       modifiedBinding ~bindingLoc ~bindingPatLoc ~fnName binding
     in
     let isAsync =
-      Ext_list.find_first binding.pvb_expr.pexp_attributes
-        React_jsx_common.is_async
+      Ext_list.find_first binding.pvb_expr.pexp_attributes Ast_async.is_async
       |> Option.is_some
     in
     (* do stuff here! *)