From a15d4f0a3c36dd55f7b6a885614de5d48d6becf9 Mon Sep 17 00:00:00 2001
From: Louis <louis@louisroche.net>
Date: Tue, 25 Jan 2022 22:04:14 +0800
Subject: [PATCH] fix detection of opam root when no switch is selected

fix #701
---
 src/opam.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/opam.ml b/src/opam.ml
index c3d45a014..fff4e8dcd 100644
--- a/src/opam.ml
+++ b/src/opam.ml
@@ -20,7 +20,7 @@ let make ?root () =
   | Error _, _ -> Promise.return None
   | Ok bin, Some root -> Promise.return (Some { bin; root })
   | Ok bin, None -> (
-    let var_root_cmd = Cmd.Spawn (Cmd.append bin [ "var"; "root" ]) in
+    let var_root_cmd = Cmd.Spawn (Cmd.append bin [ "var"; "--global"; "root" ]) in
     let+ var_root_output = Cmd.output var_root_cmd in
     match var_root_output with
     | Error _ -> None