فهرست منبع

syntax fix for older ocaml

Nicolas Cannasse 13 سال پیش
والد
کامیت
708915649e
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      gencommon.ml

+ 1 - 1
gencommon.ml

@@ -7957,7 +7957,7 @@ struct
           if is_some null_vt && is_none null_et then
             handle_unwrap e.etype (run v)
           else if is_none null_vt && is_some null_et then
-            handle_wrap ({ run v with etype = get (is_null_t e.etype) })
+            handle_wrap ({ (run v) with etype = get (is_null_t e.etype) })
           else
             Type.map_expr run e
         | TField(ef, field) when is_some (is_null_t ef.etype) ->