Commit ce297df9 authored by gerd's avatar gerd

better error behavior


git-svn-id: https://gps.dynxs.de/private/svn/app-plasma/trunk@254 55289a75-7b90-4627-9e07-ffb4263930b2
parent 68689d4d
......@@ -64,7 +64,10 @@ let commit_phase1_write_remotely slave journal shared_state rev_id =
++ (fun _ ->
qseq_e (Queue.copy journal) esys
(fun m ->
Nn_push.push_e m mclient
if !enabled then
Nn_push.push_e m mclient
else
eps_e (`Done ()) esys
)
)
>> (function
......
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