More debug logging.

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),