cluster_search/commit

Minor text changes.

authorChris Dijkshoorn
Sat Mar 7 20:51:58 2015 +0000
committerChris Dijkshoorn
Sat Mar 7 20:51:58 2015 +0000
commit96176f8afe084113898ca96a65c92ff78b0653ed
tree4f19a1de828a558b4793a4382d54d1c40cba3059
parente45a28f1a1e8d850c9f4e98db809db073a00d349
Diff style: patch stat
diff --git a/api/cluster_search.pl b/api/cluster_search.pl
index 2d1f3ff..23d6c5f 100644
--- a/api/cluster_search.pl
+++ b/api/cluster_search.pl
@@ -1,4 +1,4 @@
-:- module(cluster_search, [cluster_search/2]).
+:- module(cluster_search, [cluster_search/2, reply_clusters/1]).
 
 % http library
 :- use_module(library(http/http_dispatch)).
@@ -24,7 +24,7 @@
 search_api(Request) :-
     get_parameters(Request, Options),
     cluster_search(Clusters, Options),
-    write_data(Clusters).
+    reply_clusters(Clusters).
 
 %%	get_parameters(+Request, -Options)
 %
@@ -176,10 +176,10 @@ target(URI, URI, 1).
 
 
 
-%%	write_data(+Data, +Options)
+%%	reply_clusters(+Data, +Options)
 %
 %	Write data in JSON format to output stream.
-write_data(clusters(Clusters)) :-
+reply_clusters(clusters(Clusters)) :-
     clusters_to_json(Clusters, JsonClusters),
     Json = json([clusters=JsonClusters]),
     reply_json(Json).
diff --git a/lib/cluster_search/graph_search.pl b/lib/cluster_search/graph_search.pl
index 3a4d9f4..4502d08 100644
--- a/lib/cluster_search/graph_search.pl
+++ b/lib/cluster_search/graph_search.pl
@@ -4,8 +4,6 @@
 	  ]).
 
 :- use_module(library(semweb/rdf_db)).
-:- use_module(library(debug)).
-:- use_module(library(settings)).
 
 % util modules
 :- use_module(rdf_search).
@@ -91,7 +89,7 @@ flush_graph_search_cache :-
 %%	push_graph_search_cache(+Key, +Keyword, +Options, -State) is det.
 %
 %	Add a result to the  search  cache.   Note  that  we first check
-%	whether whether the  result  was  added   to  avoid  the  not so
+%	whether the  result  was  added   to  avoid  the  not so
 %	uncommon  case  that  two  threads    compute  the  same  result
 %	concurrently.