diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-10 15:04:43 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-10 15:04:43 -0500 |
| commit | 4175da366830c0ef3bf40ddb1e6594ac5dbe3866 (patch) | |
| tree | 14e84c6382fe063c1608485e2656dd245ff03198 /bin | |
| download | apbox-4175da366830c0ef3bf40ddb1e6594ac5dbe3866.tar.gz apbox-4175da366830c0ef3bf40ddb1e6594ac5dbe3866.tar.bz2 apbox-4175da366830c0ef3bf40ddb1e6594ac5dbe3866.zip | |
Initial commit
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/dune | 4 | ||||
| -rw-r--r-- | bin/main.ml | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/bin/dune b/bin/dune new file mode 100644 index 0000000..cf3fbf4 --- /dev/null +++ b/bin/dune @@ -0,0 +1,4 @@ +(executable + (public_name apbox) + (name main) + (libraries apbox cohttp-eio)) diff --git a/bin/main.ml b/bin/main.ml new file mode 100644 index 0000000..44d41a2 --- /dev/null +++ b/bin/main.ml @@ -0,0 +1,6 @@ +open Cohttp_eio + +let () = + Eio_main.run @@ fun env -> + let res = Client.get env ~host:"www.example.org" "/" in + print_string @@ Client.read_fixed res |