feat(geoService): add geo call

playground/index.html

@@ -8,8 +8,7 @@
     <h1>Cross fetch</h1>
     <script type="text/javascript" src="../dist/fido.js"></script>
     <script type="text/javascript">
-      requestGet('https://cors-anywhere.herokuapp.com/').then(res => console.log(res)).catch(err => console.error(err));
-      fetch('https://cors-anywhere.herokuapp.com/').then(res => console.log(res)).catch(err => console.error(err));
+      getGeoService();
     </script>
   </body>
 </html>

src/Fido.ts

@@ -1,6 +1,5 @@
 
 export * from './Fido_sources.gen';
-export { requestGet } from './web/FidoJs.gen';
+export { getGeoService } from './web/FidoJs.gen';
 
-// export {
-// } from './Fido_types.gen';
+export * from './Fido_types.gen';

src/Fido_sources.re

@@ -1,4 +1,4 @@
-// open Fido_types;
+open Fido_types;
 
 [@genType]
-let requestGet = Http.Client.fetch;
+let getGeoService = Http.Client.get("https://geo.6play.fr/v1/geoInfo/");

src/Fido_types.re

@@ -1 +1,11 @@
-
+[@genType]
+type geoServiceType = {
+  timezone: string,
+  offset: int,
+  isp: string,
+  country_code: string,
+  asn: string,
+  ip: string,
+  is_anonymous: bool,
+  areas: list(int),
+};

src/dune/Fido.re

@@ -1 +1,2 @@
 module Types = Fido_types;
+/* include Fido_sources; */

src/include/http_js/Client_js.re

@@ -1,6 +1,8 @@
-let fetch = (~path: string) =>
+let get = (path: string, ()) =>
   Js.Promise.(
-    Fetch.fetch(path)
-    |> then_(Fetch.Response.text)
-    |> then_(text => print_endline(text) |> resolve)
+    Fetch.fetchWithInit(path, Fetch.RequestInit.make(~mode=CORS, ()))
+    |> then_(Fetch.Response.json)
+    |> then_(json => Js.Json.decodeObject(json) |> resolve)
+    |> then_(opt => Belt.Option.getExn(opt) |> resolve)
+    |> then_(items => Js.log(items) |> resolve)
   );

src/include/http_native/Client_native.re

@@ -1,4 +1,4 @@
-let fetch = (~path: string) =>
+let get = (path: string, ()) =>
   Fetch.(
     fetch(path)
     |> Lwt.map(

src/web/FidoJs.re

@@ -1,4 +1,4 @@
-// open Fido_types;
+open Fido_types;
 
 [@genType]
-let requestGet = Http.Client.fetch;
+let getGeoService = Http.Client.get("https://geo.6play.fr/v1/geoInfo/");