From 69209d72437b2e4a75e7778b20ead3c91f3b7100 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Mon, 12 Mar 2018 17:53:00 +0000
Subject: [PATCH] Remove extra parentheses

---
 src/lib.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/lib.ml b/src/lib.ml
index b7eb37b8..e47a0900 100644
--- a/src/lib.ml
+++ b/src/lib.ml
@@ -549,12 +549,11 @@ module Dep_stack = struct
 end
 
 let check_private_deps ~(lib : lib) ~loc ~allow_private_deps =
-  if (not allow_private_deps) && Status.is_private lib.status then (
+  if (not allow_private_deps) && Status.is_private lib.status then
     Result.Error (Error (
       Private_deps_not_allowed { private_dep = lib ; pd_loc = loc }))
-  ) else (
+  else
     Ok lib
-  )
 
 let already_in_table (info : Info.t) name x =
   let to_sexp = Sexp.To_sexp.(pair Path.sexp_of_t string) in