Close /dev/null descriptor

andrenth · Feb 5, 2015 · a0a855a · a0a855a
1 parent b61cdda
commit a0a855a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/core/release.ml b/lib/core/release.ml
@@ -351,7 +351,7 @@ struct
       let close_and_dup fd =
         Future.Unix.close fd >>= fun () ->
         Future.Unix.dup2 dev_null fd;
-        return_unit in
+        Future.Unix.close dev_null in
       let descrs =
         [Future.Unix.stdin; Future.Unix.stdout; Future.Unix.stderr] in
       Future.iter_p close_and_dup descrs >>= fun () ->