diff options
Diffstat (limited to 'editor/editor.ml')
-rwxr-xr-x | editor/editor.ml | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/editor/editor.ml b/editor/editor.ml index c80b426..51ff3e4 100755 --- a/editor/editor.ml +++ b/editor/editor.ml @@ -77,8 +77,15 @@ module Store = struct let save = State.Storage.save content_obj state.page_id - ~check:(fun previous_state -> - Js.Opt.case previous_state##.date + (* There three date here : + - The actual date at the time we save the note + - The date associated with the note when we loaded it first time + - The date associated with the note at the time we want to update it + + The two last may differ if the note has been updated in another one tab. *) + ~check:(fun ~previous ~update -> + let _ = update in + Js.Opt.case previous##.date (fun () -> true) (fun date -> (* I do not figure how the previous date could be older |