swish/commit

Render rdf11 literals

authorJan Wielemaker
Fri Mar 18 13:30:33 2016 +0100
committerJan Wielemaker
Fri Mar 18 13:30:33 2016 +0100
commit930a18fc188fc7e6e3a794477cfd13aab20635a4
treec4fb27f2ea38b7febb1b59eb9d05ee5822a65069
parent864a93c807c718cadee41442a7d4c8add60da668
Diff style: patch stat
diff --git a/lib/swish/render/rdf.pl b/lib/swish/render/rdf.pl
index 6a6481c..5e3dc66 100644
--- a/lib/swish/render/rdf.pl
+++ b/lib/swish/render/rdf.pl
@@ -47,15 +47,17 @@ Render RDF data.
 %	Renders Term as a uri.  Furt
 
 term_rendering(Term, _Vars, Options) -->
-	{ is_rdf(Term)
+	{ ground(Term),
+	  is_rdf(Term)
 	}, !,
 	rdf_link(Term, [target('cliopatria-localview')|Options]).
 
 is_rdf(Term) :-
 	is_uri(Term), !.
 is_rdf(literal(Value)) :-
-	ground(Value),
 	is_literal(Value).
+is_rdf(^^(_,Type)) :- atom(Type).
+is_rdf(@(_,Lang)) :- atom(Lang).
 
 is_uri(Term) :-
 	atom(Term),