--- a/src/Pure/PIDE/protocol.ML Fri Jul 05 14:09:06 2013 +0200
+++ b/src/Pure/PIDE/protocol.ML Fri Jul 05 15:38:03 2013 +0200
@@ -10,7 +10,7 @@
val _ =
Isabelle_Process.protocol_command "Document.define_command"
(fn [id, name, text] =>
- Document.change_state (Document.define_command (Document.parse_id id) name text));
+ Document.change_state (Document.define_command (Document_ID.parse id) name text));
val _ =
Isabelle_Process.protocol_command "Document.discontinue_execution"
@@ -26,8 +26,8 @@
let
val _ = Document.cancel_execution state;
- val old_id = Document.parse_id old_id_string;
- val new_id = Document.parse_id new_id_string;
+ val old_id = Document_ID.parse old_id_string;
+ val new_id = Document_ID.parse new_id_string;
val edits =
YXML.parse_body edits_yxml |>
let open XML.Decode in