amalgame/commit

FIXED: support dicts in html_showlist//1

authorJacco van Ossenbruggen
Tue Mar 3 15:16:07 2015 +0100
committerJacco van Ossenbruggen
Tue Mar 3 15:16:07 2015 +0100
commit5fe90fc3fc36a0be254a67cd65dbc4e968e1757d
tree37f5a67ee4ae2e3445535dd8918dc44262f36b0e
parent67023a1e7ff495c22cee907baba140c2fa5f2ff4
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) -->