Cohttp_async now makes the HTTP body type abstract.

Convert code to `Pipe.to_list (Cohttp_async.Body.to_pipe body)`
to obtain the list of strings now.  Note that this can be optimized
to `Cohttp_async.Body.to_string` to remove the subsequent string
concatenation, but I chose to minimise code churn for now.

Author: avsm

code/async/search.ml

@@ -28,7 +28,7 @@ let get_definition_from_json json =
 let get_definition word =
   Cohttp_async.Client.get (query_uri word)
   >>= fun (_, body) ->
-  Pipe.to_list body
+  Pipe.to_list (Cohttp_async.Body.to_pipe body)
   >>| fun strings ->
   (word, get_definition_from_json (String.concat strings))
 

code/async/search_with_error_handling.ml

@@ -30,7 +30,7 @@ let get_definition ~server word =
   try_with (fun () ->
     Cohttp_async.Client.get (query_uri ~server word)
     >>= fun  (_, body) ->
-    Pipe.to_list body
+    Pipe.to_list (Cohttp_async.Body.to_pipe body)
     >>| fun strings ->
     (word, get_definition_from_json (String.concat strings)))
   >>| function

code/async/search_with_timeout_no_leak.ml

@@ -29,7 +29,7 @@ let get_definition ~server ~interrupt word =
   try_with (fun () ->
     Cohttp_async.Client.get ~interrupt (query_uri ~server word)
     >>= fun  (_, body) ->
-    Pipe.to_list body
+    Pipe.to_list (Cohttp_async.Body.to_pipe body)
     >>| fun strings ->
     (word, get_definition_from_json (String.concat strings)))
   >>| function

code/async/test.txt

@@ -1 +1 @@
-THIS IS ONLY A TEST.
+This is only a test.