# # # patch "viz_style.ml" # from [ffc50f7030fd216bdf9de1fc1dcc3cfba295e98a] # to [b8d2b41d10a2de126e47634ab2ae71d9867bf61c] # ============================================================ --- viz_style.ml ffc50f7030fd216bdf9de1fc1dcc3cfba295e98a +++ viz_style.ml b8d2b41d10a2de126e47634ab2ae71d9867bf61c @@ -278,7 +278,12 @@ let parse_merge p filename = let parse_merge p filename = prefs_of_items (parse_merge_items (items_of_prefs p) filename) -let load () = parse_merge defaults style_file_name +let load () = + try parse_merge defaults style_file_name + with _ -> + prerr_endline "Couldn't parse .monotone-viz.style file." ; + defaults + let separator = "-*- monotone-viz -*-"