OCaml client for the LinkedIn Voyager API
linkedin: apply dune fmt
+9
-9
+9
-9
lib/item.ml
+9
-9
lib/item.ml
···
242
242
243
243
The share-feed response is a graph just like the single-post response:
244
244
[included] holds [UpdateV2] entries (in document order, which matches
245
-
reverse-chronological feed order), and each one's [content.$type]
246
-
decides whether the item is a Pulse article share (we surface the
247
-
article URL and title) or a plain feed post (we synthesise the
248
-
[/feed/update/<urn>] URL). *)
245
+
reverse-chronological feed order), and each one's [content.$type] decides
246
+
whether the item is a Pulse article share (we surface the article URL and
247
+
title) or a plain feed post (we synthesise the [/feed/update/<urn>]
248
+
URL). *)
249
249
250
250
let obj_members = function Json.Value.Object (ms, _) -> Some ms | _ -> None
251
251
let as_string = function Json.Value.String (s, _) -> Some s | _ -> None
···
354
354
Re.all re body
355
355
|> List.filter_map summary_of_match
356
356
|> List.filter (fun (s : summary) ->
357
-
if Hashtbl.mem seen s.url then false
358
-
else begin
359
-
Hashtbl.add seen s.url ();
360
-
true
361
-
end)
357
+
if Hashtbl.mem seen s.url then false
358
+
else begin
359
+
Hashtbl.add seen s.url ();
360
+
true
361
+
end)
362
362
363
363
let feed ?(start = 0) ?(count = 100) ~profile_id api =
364
364
let path = feed_path ~profile_id ~start ~count in