diff --git a/src/res_core.ml b/src/res_core.ml
index d25dc86f..b6fded4d 100644
--- a/src/res_core.ml
+++ b/src/res_core.ml
@@ -237,11 +237,9 @@ let rec goToClosing closingToken state =
 (* Madness *)
 let isEs6ArrowExpression ~inTernary p =
   Parser.lookahead p (fun state ->
-      let () =
-        match state.Parser.token with
-        | Lident "async" -> Parser.next state
-        | _ -> ()
-      in
+      (match state.Parser.token with
+      | Lident "async" -> Parser.next state
+      | _ -> ());
       match state.Parser.token with
       | Lident _ | Underscore -> (
         Parser.next state;