X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=lib%2Fwhenutils.ml;h=d53ac7e852e0cdbe02bfcf2c353b81486de3a23d;hp=cdfca47b1590b75ccd2102dfd85d077134e66a5a;hb=05ade7bb494f37bbbfb4b20d59d487e5ede98b05;hpb=65b5a307fc1c55a197ee337180842ac6885ba784

diff --git a/lib/whenutils.ml b/lib/whenutils.ml
index cdfca47..d53ac7e 100644
--- a/lib/whenutils.ml
+++ b/lib/whenutils.ml
@@ -249,7 +249,7 @@ and expr_of_iexpr _loc = function
 
   | IExpr_app (("change"|"changes"|"changed"|"inc"|"increase"|"increases"|"increased"|"dec"|"decrease"|"decreases"|"decreased"|"prev"|"previous") as op, _) ->
     invalid_arg (sprintf "%s: '%s' operator must be followed by a variable name"
-                   op (Loc.to_string _loc))
+                   (Loc.to_string _loc) op)
 
   | IExpr_app (op, _) ->
     invalid_arg (sprintf "%s: unknown operator in expression: %s"