X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fwhenutils.ml;h=2db41038b43969bf1cd4000d395d1ab0d4db5928;hb=e74ab6c5b107e3daeb4fae3f59013856be060bad;hp=e43dcf61ea2f4dbf1d2fe2708f10b1a2d42fafe8;hpb=df2cdcfdc29af0080b9b3eace17325d2a1d83e72;p=whenjobs.git

diff --git a/lib/whenutils.ml b/lib/whenutils.ml
index e43dcf6..2db4103 100644
--- a/lib/whenutils.ml
+++ b/lib/whenutils.ml
@@ -480,14 +480,14 @@ let rec eval_whenexpr job variables onload = function
 
   | Expr_increases v ->
     let prev_value, curr_value = get_prev_curr_value job variables v in
-    if compare_values prev_value curr_value > 0 then
+    if compare_values prev_value curr_value < 0 then
       T_bool true
     else
       T_bool false
 
   | Expr_decreases v ->
     let prev_value, curr_value = get_prev_curr_value job variables v in
-    if compare_values prev_value curr_value < 0 then
+    if compare_values prev_value curr_value > 0 then
       T_bool true
     else
       T_bool false