From 7e16edf2ccbc389ae66585a488fce2e132bb0761 Mon Sep 17 00:00:00 2001
From: David Allsopp <david.allsopp@metastack.com>
Date: Tue, 7 Nov 2023 15:17:54 +0000
Subject: [PATCH] Debug GHA

---
 src/core/opamStd.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/core/opamStd.ml b/src/core/opamStd.ml
index 15292be99a5..91316acf0b8 100644
--- a/src/core/opamStd.ml
+++ b/src/core/opamStd.ml
@@ -1096,6 +1096,8 @@ module OpamSys = struct
     in
     lazy (
       let lazy ancestors = windows_process_ancestry in
+      if Sys.getenv_opt "SHELL" = None then
+        Printf.eprintf "Ancestry:\n  %s\n%!" (String.concat "\n  " (List.map snd ancestors));
       match OpamList.filter_map categorize_process ancestors with
       | [] -> None
       | Accept most_relevant_shell :: _ -> Some most_relevant_shell