sean/query-ci
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More debug logging.

Browse Source
This commit is contained in:
Seán
2026-04-20 15:30:28 +01:00
parent 39febda829
commit 01c291b85f
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
server.pl
View File

@@ -306,12 +306,14 @@ handle_post(Request) :-
union_all([RemovedFileTypes, RemovedBaseNames, RemovedFullPaths], Removed), union_all([RemovedFileTypes, RemovedBaseNames, RemovedFullPaths], Removed),
union_all([Modified, Added, Removed], Affected), union_all([Modified, Added, Removed], Affected),
union(Modified, Added, Touched), 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), git_clone_command(Repository, ShortName, DefaultBranch, '/tmp', CommitAfter, CloneCommand, Destination),
shell(CloneCommand), shell(CloneCommand),
git_fetch_commit_command(Destination, CommitAfter, FetchCommand), git_fetch_commit_command(Destination, CommitAfter, FetchCommand),
shell(FetchCommand), shell(FetchCommand),
!,
format(atom(RulesFile), '~w/automation/rules', [Destination]), format(atom(RulesFile), '~w/automation/rules', [Destination]),
format(user_error, 'Reading rules from: ~w~n', [RulesFile]),
read_file_to_codes(RulesFile, ASCIICodes, []), read_file_to_codes(RulesFile, ASCIICodes, []),
codes_to_chars(ASCIICodes, Chars), codes_to_chars(ASCIICodes, Chars),
Commit = [ Commit = [
@@ -323,6 +325,7 @@ handle_post(Request) :-
authors:Authors, authors:Authors,
messages:Messages messages:Messages
], ],
format(user_error, 'Constructed commit representation: ~w~n', [Commit]),
phrase(rules(Rules), Chars, []), phrase(rules(Rules), Chars, []),
format(user_error, 'Parsed rules: ~w~n', [Rules]), format(user_error, 'Parsed rules: ~w~n', [Rules]),
matching_rules(Rules, Commit, Matches), matching_rules(Rules, Commit, Matches),