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

Fix setof issue.

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

7
server.pl
View File

@@ -157,15 +157,16 @@ commits([Commit|Rest], [CommitInfo|CommitInfos]) :-
commits(Rest, CommitInfos). commits(Rest, CommitInfos).
list_set(ListOfList, Functor, Result) :- list_set(ListOfList, Functor, Result) :-
setof( findall(
Item, Item,
( (
member(L, ListOfList), member(L, ListOfList),
Pred =.. [Functor, Item], Pred =.. [Functor, Item],
member(Pred, L) member(Pred, L)
), ),
Result ResultList
). ),
list_to_set(ResultList, Result).
filetype_suffix(File, SuffixLower) :- filetype_suffix(File, SuffixLower) :-
split_string(File, ".", "", Parts), split_string(File, ".", "", Parts),
length(Parts, Length), length(Parts, Length),