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