X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=lib%2Fwhenutils.ml;fp=lib%2Fwhenutils.ml;h=643da7def8a2e3e7b06188e0c5cd6c7dd6c3d162;hb=ad0b6d412312967a6604a763368ce1bcd977bc75;hp=362f4f69bdbe1afb1777bdfc687bb7b91737db8c;hpb=0f58f891d531defd1fa923dd2da93678c9c6f35b;p=whenjobs.git

diff --git a/lib/whenutils.ml b/lib/whenutils.ml
index 362f4f6..643da7d 100644
--- a/lib/whenutils.ml
+++ b/lib/whenutils.ml
@@ -132,8 +132,8 @@ let rec expr_of_ast _loc ast =
   expr_of_iexpr _loc (iexpr_of_ast _loc ast)
 
 and iexpr_of_ast _loc = function
-  | ExId (_, IdLid (_, "true")) -> IExpr_bool true
-  | ExId (_, IdLid (_, "false")) -> IExpr_bool false
+  | ExId (_, IdUid (_, "True")) -> IExpr_bool true
+  | ExId (_, IdUid (_, "False")) -> IExpr_bool false
   | ExStr (_, str) -> IExpr_str str
   | ExInt (_, i) -> IExpr_int (big_int_of_string i) (* XXX too large? *)
   | ExFlo (_, f) -> IExpr_float (float_of_string f)