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

More logging.

Browse Source
This commit is contained in:
Seán
2026-04-20 16:55:51 +01:00
parent f821bab9b6
commit 1266675e0a
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
server.pl
View File

@@ -288,15 +288,17 @@ handle_post(Request) :-
format(user_error, 'Ref: ~w~n', [Ref]),
commits(JSON.commits, CommitList),
list_set(CommitList, modified, ModifiedFileLists),
format(user_error, 'Extracted modified file lists: ~w~n', [ModifiedFileLists]),
union_all(ModifiedFileLists, ModifiedFiles),
format(user_error, 'Unified modified files: ~w~n', [ModifiedFiles]),
list_set(CommitList, message, MessageLists),
union_all(MessageLists, Messages),
format(user_error, 'Unified commit messages: ~w~n', [Messages]),
list_set(CommitList, added, AddedFileLists),
union_all(AddedFileLists, AddedFiles),
format(user_error, 'Unified added files: ~w~n', [AddedFiles]),
list_set(CommitList, removed, RemovedFileLists),
union_all(RemovedFileLists, RemovedFiles),
format(user_error, 'Unified removed files: ~w~n', [RemovedFiles]),
files_to_filetypes(ModifiedFiles, ModifiedFileTypes),
files_to_filetypes(AddedFiles, AddedFileTypes),
files_to_filetypes(RemovedFiles, RemovedFileTypes),
@@ -308,11 +310,19 @@ handle_post(Request) :-
files_with_prefix_slash(RemovedFiles, RemovedFullPaths),
% Union the file types, basenames, and full paths to form Modified, Added, and Removed sets
union_all([ModifiedFileTypes, ModifiedBaseNames, ModifiedFullPaths], Modified),
format(user_error, 'Modified: ~w~n', [Modified]),
union_all([AddedFileTypes, AddedBaseNames, AddedFullPaths], Added),
format(user_error, 'Added: ~w~n', [Added]),
union_all([RemovedFileTypes, RemovedBaseNames, RemovedFullPaths], Removed),
format(user_error, 'Removed: ~w~n', [Removed]),
union_all([Modified, Added, Removed], Affected),
format(user_error, 'Affected: ~w~n', [Affected]),
union(Modified, Added, Touched),
list_set(CommitList, author_email, Authors),
format(user_error, 'Touched: ~w~n', [Touched]),
list_set(CommitList, author_email, AuthorList),
list_to_set(AuthorList, Authors),
format(user_error, 'Authors: ~w~n', [Authors]),
format(user_error, 'Cloning repository to check out commit: ~w~n', [CommitAfter]),
git_clone_command(Repository, ShortName, DefaultBranch, '/tmp', CommitAfter, CloneCommand, Destination),
shell(CloneCommand),
git_fetch_commit_command(Destination, CommitAfter, FetchCommand),