diff options
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/idetop.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/idetop.ml b/ide/idetop.ml index 02682e2ee9..7c6fa8951b 100644 --- a/ide/idetop.ml +++ b/ide/idetop.ml @@ -392,7 +392,7 @@ let handle_exn (e, info) = let loc_of e = match Loc.get_loc e with | Some loc -> Some (Loc.unloc loc) | _ -> None in - let mk_msg () = CErrors.print ~info e in + let mk_msg () = CErrors.iprint (e,info) in match e with | e -> match Stateid.get info with |