From 0f77d66d074ed86e1f0bb194185b596cc490ee9c Mon Sep 17 00:00:00 2001
From: Bhavika2001 <bhavikagianey@gmail.com>
Date: Thu, 29 Apr 2021 02:44:24 +0530
Subject: [PATCH] link_to_stackshare

---
 script/test.ml | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 script/test.ml

diff --git a/script/test.ml b/script/test.ml
new file mode 100644
index 000000000..004f1c6f4
--- /dev/null
+++ b/script/test.ml
@@ -0,0 +1,43 @@
+#use "topfind";;
+#thread;;
+#require "lwt";;
+#require "cohttp-lwt-unix";;
+#require "ezjsonm";;
+
+open Lwt
+open Cohttp
+open Cohttp_lwt_unix
+open Printf
+
+let uri = "https://api.stackshare.io/graphql"
+let key = "hmTBPOT6qizPthv9BVFjFg"
+
+let query = {| query {
+leads(usingToolSlugs: ["ocaml"], toolMatch: "any",
+after:""){
+edges{
+node{
+companyId
+companyName
+domain
+}
+}
+}
+}|}
+
+let send_graphql_query query =
+let open Lwt.Infix in
+let headers =
+Cohttp.Header.of_list ["Content-type", "application/json"; "Accept", "application/json"; "x-api-key" , key]
+in
+let uri = Uri.of_string uri in
+let body =
+`O [("query", `String query)]
+in
+let serialized_body = Ezjsonm.to_string body in
+Cohttp_lwt_unix.Client.post ~headers ~body:(`String serialized_body) uri >>= fun (_resp, body) ->
+Cohttp_lwt.Body.to_string body >|= fun s ->
+print_endline s
+
+let () =
+Lwt_main.run (send_graphql_query query)