diff options
Diffstat (limited to 'lib/http.ml')
| -rw-r--r-- | lib/http.ml | 5 |
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 |