diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2016-11-30 22:24:17 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-21 15:51:38 +0100 |
| commit | 4084ee30293a6013592c0651dfeb1975711f135f (patch) | |
| tree | 5223e65acc6fe4bf92231bd728510640054aa23e /ide/ideutils.ml | |
| parent | e872f76058e954fac3e0652ec567aff72226e9dd (diff) | |
[ide] richpp clenaup
We remove the "abstraction breaking" primitives and reduce the file to
the used fragment.
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 498a911ee..101f1a5ee 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -43,7 +43,7 @@ let xml_to_string xml = | Element (_, _, children) -> List.iter iter children in - let () = iter (Richpp.repr xml) in + let () = iter xml in Buffer.contents buf let insert_with_tags (buf : #GText.buffer_skel) mark rmark tags text = @@ -75,7 +75,7 @@ let insert_xml ?(mark = `INSERT) ?(tags = []) (buf : #GText.buffer_skel) msg = let tags = try tag t :: tags with Not_found -> tags in List.iter (fun xml -> insert tags xml) children in - let () = try insert tags (Richpp.repr msg) with _ -> () in + let () = try insert tags msg with _ -> () in buf#delete_mark rmark let set_location = ref (function s -> failwith "not ready") |