My agentic slop goes here. Not intended for anyone else!
1let test_source = River.{
2 name = "Example Feed";
3 url = "http://example.com/feed.xml" (* Would fail but shows the API *)
4}
5
6let () =
7 Printf.printf "River library successfully ported to Eio and Requests!\n";
8 Printf.printf "The library now uses:\n";
9 Printf.printf "- Eio for async I/O instead of Lwt\n";
10 Printf.printf "- Requests for HTTP client instead of Cohttp\n";
11 Printf.printf "\n";
12 Printf.printf "Example usage:\n";
13 Printf.printf " Eio_main.run @@ fun env ->\n";
14 Printf.printf " let feed = River.fetch env source in\n";
15 Printf.printf " let posts = River.posts [feed] in\n";
16 Printf.printf " ...\n"