diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index ea64f0a..c817571 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -45,7 +45,7 @@ let start domain : Portal.t Lwt.t = in let push = function | None -> Portal.close (stream, _push); | anything -> _push anything - in let+ _id = Portal.negotiate domain (stream, _push) + in let+ _id = Portal.header domain (stream, _push) in stream, push (** [parse_features el] is a [stream_features] record with all the features of the |