amalgame/commit
FIXED: support dicts in html_showlist//1
author | Jacco van Ossenbruggen |
---|---|
Tue Mar 3 15:16:07 2015 +0100 | |
committer | Jacco van Ossenbruggen |
Tue Mar 3 15:16:07 2015 +0100 | |
commit | 5fe90fc3fc36a0be254a67cd65dbc4e968e1757d |
tree | 37f5a67ee4ae2e3445535dd8918dc44262f36b0e |
parent | 67023a1e7ff495c22cee907baba140c2fa5f2ff4 |
Diff style: patch stat
diff --git a/components/amalgame/util.pl b/components/amalgame/util.pl index f7cd5de..9e04e48 100644 --- a/components/amalgame/util.pl +++ b/components/amalgame/util.pl @@ -31,6 +31,11 @@ html_ag_header(Options) --> html_showlist([]) --> !. html_showlist([H]) --> html(H),!. html_showlist([H1,H2|Tail]) --> html([H1,', ']), html_showlist([H2|Tail]). +html_showlist(Dict) --> + { is_dict(Dict), + dict_pairs(Dict, _Tag, Pairs) + }, + html_showlist(Pairs). html_options([],_) --> !. html_options([R|Rs], Default) -->