aboutsummaryrefslogtreecommitdiff
path: root/lib/http.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/http.ml')
-rw-r--r--lib/http.ml5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/http.ml b/lib/http.ml
index d2dff65..810bdc3 100644
--- a/lib/http.ml
+++ b/lib/http.ml
@@ -37,7 +37,10 @@ module Make(T : S.Token) = struct
let request ?(body=`Null) m path =
rl := Rl.update ~f:(function
- | None -> Mvar.create ()
+ | None ->
+ let r = Mvar.create () in
+ Mvar.set r Rl.default;
+ r
| Some r -> r
) !rl path;
let limit = Rl.find_exn !rl path in