diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-13 15:50:37 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-13 15:50:37 -0700 |
| commit | 179d9598fe62e2966471b312fd438e98ff3a272a (patch) | |
| tree | cbe69315ccd51dc69912a39fee30dfa767fa491e /lib/http.ml | |
| parent | Working on deriving types from json (diff) | |
| download | disml-179d9598fe62e2966471b312fd438e98ff3a272a.tar.xz disml-179d9598fe62e2966471b312fd438e98ff3a272a.zip | |
Fix more dispatch issues
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 |