diff options
| author | Guillaume Melquiond | 2017-04-13 11:20:20 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2017-04-13 11:20:20 +0200 |
| commit | 8b1b6e76a6229d9c091bf805e3786bdf0038ae32 (patch) | |
| tree | f137e7b0f86a6f9a9df43cf8acaad573457e5205 /stm/asyncTaskQueue.ml | |
| parent | a5c150a6a7fa980c5850aa247e62d02e29773235 (diff) | |
Silence a few OCaml warnings.
Diffstat (limited to 'stm/asyncTaskQueue.ml')
| -rw-r--r-- | stm/asyncTaskQueue.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index 3459156a43..3fa1732a4d 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -308,7 +308,7 @@ module Make(T : Task) = struct (* We pass feedback to master *) let slave_feeder oc fb = Marshal.to_channel oc (RespFeedback (debug_with_pid fb)) []; flush oc in - Feedback.add_feeder (fun x -> slave_feeder (Option.get !slave_oc) x); + ignore (Feedback.add_feeder (fun x -> slave_feeder (Option.get !slave_oc) x)); (* We ask master to allocate universe identifiers *) Universes.set_remote_new_univ_level (bufferize (fun () -> marshal_response (Option.get !slave_oc) RespGetCounterNewUnivLevel; |