equal
deleted
inserted
replaced
232 in put_state state_id' state' end; |
232 in put_state state_id' state' end; |
233 in (state_id', ((id, state_id'), make_state') :: updates) end; |
233 in (state_id', ((id, state_id'), make_state') :: updates) end; |
234 |
234 |
235 fun report_updates [] = () |
235 fun report_updates [] = () |
236 | report_updates updates = |
236 | report_updates updates = |
237 Output.status |
237 implode (map (fn (id, state_id) => Markup.markup (Markup.edit id state_id) "") updates) |
238 (implode (map (fn (id, state_id) => Markup.markup (Markup.edit id state_id) "") updates)); |
238 |> Markup.markup Markup.assign |
|
239 |> Output.status; |
239 |
240 |
240 in |
241 in |
241 |
242 |
242 fun edit_document (old_id: document_id) (new_id: document_id) edits = |
243 fun edit_document (old_id: document_id) (new_id: document_id) edits = |
243 NAMED_CRITICAL "Isar" (fn () => |
244 NAMED_CRITICAL "Isar" (fn () => |