amalgame/commit
FIXED: do not delete non-empty evaluation graphs
author | Jacco van Ossenbruggen |
---|---|
Tue Jun 25 21:27:37 2013 +0200 | |
committer | Jacco van Ossenbruggen |
Tue Jun 25 21:27:37 2013 +0200 | |
commit | a51ff538d83075f6b7f3733c3d69cca7eb3ca5ee |
tree | 47db1d43cee8b0d548bd8fb767cd610a76e3f8dc |
parent | 170ef297babefe0f2237ca294ff52cc3af82b006 |
Diff style: patch stat
diff --git a/lib/amalgame/ag_evaluation.pl b/lib/amalgame/ag_evaluation.pl index db0d300..a5d15cb 100644 --- a/lib/amalgame/ag_evaluation.pl +++ b/lib/amalgame/ag_evaluation.pl @@ -37,7 +37,7 @@ create_evaluation_graph(Strategy, Mapping, EvalGraph) :- rdf_assert(EvalGraph, amalgame:wasGeneratedBy, EvalProcess, Strategy), rdf_assert(EvalGraph, amalgame:evaluationOf, Mapping, Strategy), - rdf_assert(EvalGraph, amalgame:status, amalgame:intermediate, Strategy), + rdf_assert(EvalGraph, amalgame:status, amalgame:intermediate, Strategy), Options = [was_derived_from([Mapping])], provenance_graph(Strategy, ProvGraph), @@ -45,7 +45,9 @@ create_evaluation_graph(Strategy, Mapping, EvalGraph) :- delete_empty_eval_graphs(Strategy) :- - forall(rdf(EvalGraph, amalgame:evaluationOf, Mapping, Strategy), + forall((rdf(EvalGraph, amalgame:evaluationOf, Mapping, Strategy), + is_empty_eval_graph(EvalGraph) + ), delete_eval_graph_admin(Strategy, Mapping, EvalGraph) ).