diff options
| author | Adelyn Breedlove <[email protected]> | 2018-12-12 17:01:04 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2018-12-12 17:01:04 -0700 |
| commit | a1e99ad1691a67d5aecc73109d2e1c16bdbe4050 (patch) | |
| tree | 0c29235bf41df0705e854c73b2b32ce60b3a357d /lib/http.ml | |
| parent | Merge branch 'dev' of https://gitlab.com/Mishio595/disml into dev (diff) | |
| parent | Update my name in disml.opam (diff) | |
| download | disml-a1e99ad1691a67d5aecc73109d2e1c16bdbe4050.tar.xz disml-a1e99ad1691a67d5aecc73109d2e1c16bdbe4050.zip | |
Merge branch 'dev' of https://gitlab.com/Mishio595/disml into dev
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 |