From afec329145699f81b73c0ed82af01637b0158a57 Mon Sep 17 00:00:00 2001
From: simondanielsson <simon.danielsson99@hotmail.com>
Date: Mon, 7 Apr 2025 22:28:09 +0200
Subject: [PATCH] Add debug log

---
 lib/cycles.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/cycles.ml b/lib/cycles.ml
index 5683fd9..39f3a18 100644
--- a/lib/cycles.ml
+++ b/lib/cycles.ml
@@ -137,7 +137,9 @@ let find_cycles_in_scc scc graph : string list list =
         else if
           Hash_set.mem ssc_set neighbor
           && not (List.mem path neighbor ~equal:String.equal)
-        then find_cycle ~start_vertex ~current_vertex:neighbor ~path ~visited))
+        then (
+          print_endline "Continuing";
+          find_cycle ~start_vertex ~current_vertex:neighbor ~path ~visited)))
   in
   (* Find all cycles from each node in the SSC. (Might have duplicates) *)
   List.iter scc ~f:(fun start_vertex ->