From 2cc2d713bcf9cfdad0a8da9e2fedd69f0c0eb7b7 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 17 Dec 2019 09:08:39 +0100
Subject: [PATCH] Fixed scheduler bug

---
 ocaml/Scheduler.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml/Scheduler.ml b/ocaml/Scheduler.ml
index 7e9ae2d..3d30d3d 100644
--- a/ocaml/Scheduler.ml
+++ b/ocaml/Scheduler.ml
@@ -17,7 +17,7 @@ let find () =
   let scheduler = 
     [  "SLURM_NODELIST" ; "PE_HOSTFILE" ; "PBS_NODEFILE" ]
     |> List.map (function x -> 
-         try Some (Sys.getenv x) with
+         try ignore @@ (Sys.getenv x) ; Some x with
          | Not_found -> None
          )
     |> List.hd