Commit a8564b0d authored by Sylvain Dailler's avatar Sylvain Dailler

copy/paste of proof tree: allow pasting on an ancestor. fix#89

parent d0a73309
......@@ -872,8 +872,8 @@ let rec copy_rec ~notification ~callback_pa ~callback_tr c from_any to_any =
let copy_paste ~notification ~callback_pa ~callback_tr c from_any to_any =
let s = c.controller_session in
if is_below s from_any to_any || is_below s to_any from_any
then raise BadCopyPaste;
if is_below s to_any from_any then
raise BadCopyPaste;
match from_any, to_any with
| APn _, APn _ ->
copy_rec ~notification ~callback_pa ~callback_tr c from_any to_any
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment