diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-12 15:00:46 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-12 15:00:46 -0700 |
| commit | 260ccd9960b852b9c69b88e9840d5a8b22bb8e1d (patch) | |
| tree | 4a41c663b3b719b89a20052c6ce4efbbbd2420f8 /lib/http.ml | |
| parent | Add retry on connect fail logic (diff) | |
| download | disml-260ccd9960b852b9c69b88e9840d5a8b22bb8e1d.tar.xz disml-260ccd9960b852b9c69b88e9840d5a8b22bb8e1d.zip | |
Work on event dispatch and add model derives
Diffstat (limited to 'lib/http.ml')
| -rw-r--r-- | lib/http.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/http.ml b/lib/http.ml index 6f14a22..3e10eb8 100644 --- a/lib/http.ml +++ b/lib/http.ml @@ -13,7 +13,7 @@ module Make(T : S.Token) = struct let process_request_body body = body - |> Yojson.Basic.to_string + |> Yojson.Safe.to_string |> Cohttp_async.Body.of_string let process_request_headers () = @@ -26,7 +26,7 @@ module Make(T : S.Token) = struct (* TODO Finish processor *) let process_response ((_resp:Response.t), body) = - body |> Cohttp_async.Body.to_string >>| Yojson.Basic.from_string + body |> Cohttp_async.Body.to_string >>| Yojson.Safe.from_string let request ?(body=`Null) m path = let uri = process_url path in |