cohttp with async_ssl : If you get SSL handshake error, specify version of ssl_config

cohttp_ssl_version.ml

open Core.Std
open Async.Std

module Http = Cohttp_async

let ssl_config =
  Conduit_async.Ssl.configure ~version:Tlsv1_2 ()

let main key () =
  Http.Client.get Uri.(of_string key) ~ssl_config >>= fun (res, body) ->
  Http.Body.drain body >>= fun () ->
  print_endline "ok!";
  return ()


let () =
  Command.async
    ~summary:"https clint test"
    Command.Spec.(
      empty
      +> anon ("host" %: string)
    )
    main
  |> Command.run

jbuild

(executables
 ((names (cohttp_ssl_version))
  (libraries (async_ssl cohttp.async))))