Commit ddf1d024 authored by SOLIMAN Sylvain's avatar SOLIMAN Sylvain

better messages

parent 0f10e7ba
......@@ -190,6 +190,7 @@ add_reaction_backtracking(R) :-
print_message(informational, added(R))
;
delete_item([kind: reaction, item: R]),
print_message(informational, failure),
print_message(informational, removed(R)),
fail
).
......@@ -222,6 +223,7 @@ del_reaction_backtracking(R) :-
print_message(informational, removed(R))
;
add_item([kind: reaction, item: R]),
print_message(informational, failure),
print_message(informational, added(R)),
fail
).
......@@ -234,7 +236,7 @@ prolog:message(added(Reaction)) -->
['Adding reaction ~w'-[Reaction]].
prolog:message(removed(Reaction)) -->
['Failed', nl, 'Removing reaction ~w'-[Reaction]].
['Removing reaction ~w'-[Reaction]].
prolog:message(trying(Reaction)) -->
['Considering reaction ~w'-[Reaction]].
......@@ -244,3 +246,6 @@ prolog:message(checking(Query)) -->
prolog:message(success(Reactions)) -->
['Success!', nl, 'The new model is: ~w'-[Reactions]].
prolog:message(failure) -->
['Failed'].
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment