From 01c291b85fcf458c944e6e67f5c6a8e2c7c5a802 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Se=C3=A1n=20Healy?= <sean.healy@proxymighty.com>
Date: Mon, 20 Apr 2026 15:30:28 +0100
Subject: [PATCH] More debug logging.

---
 server.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/server.pl b/server.pl
index 0903eb4..36f5172 100755
--- a/server.pl
+++ b/server.pl
@@ -306,12 +306,14 @@ handle_post(Request) :-
     union_all([RemovedFileTypes, RemovedBaseNames, RemovedFullPaths], Removed),
     union_all([Modified, Added, Removed], Affected),
     union(Modified, Added, Touched),
-    list_set(CommitList, author_email, Authors), !,
+    list_set(CommitList, author_email, Authors),
     git_clone_command(Repository, ShortName, DefaultBranch, '/tmp', CommitAfter, CloneCommand, Destination),
     shell(CloneCommand),
     git_fetch_commit_command(Destination, CommitAfter, FetchCommand),
     shell(FetchCommand),
+    !,
     format(atom(RulesFile), '~w/automation/rules', [Destination]),
+    format(user_error, 'Reading rules from: ~w~n', [RulesFile]),
     read_file_to_codes(RulesFile, ASCIICodes, []),
     codes_to_chars(ASCIICodes, Chars),
     Commit = [
@@ -323,6 +325,7 @@ handle_post(Request) :-
         authors:Authors,
         messages:Messages
     ],
+    format(user_error, 'Constructed commit representation: ~w~n', [Commit]),
     phrase(rules(Rules), Chars, []),
     format(user_error, 'Parsed rules: ~w~n', [Rules]),
     matching_rules(Rules, Commit, Matches),