~hyphen/gemini-server

a little ocaml server implementation
this is the last time I change dir before initializing i promise
reflect interface simplification on README
reorganizing files and improving interface

refs

master
browse  log 

clone

read-only
https://git.sr.ht/~hyphen/gemini-server
read/write
git@git.sr.ht:~hyphen/gemini-server

You can also use your local clone with git send-email.

(* Gemini-Server: Simplest possible server example *)

open Lwt.Syntax
open Gemsrv

let conf = {
  defconfig with
    workdir = "server";
    keypath = "certs/cert.key";
    crtpath = "certs/cert.crt";
}

let main () =
    let* server = init conf in
    let rec loop () =
        let* session, _ = recv server in
        let* request = read session in
        let  ans = handle request in
        let* res = write session ans in
            loop res
    in
    loop ()

let () = Lwt_main.run @@ main ()
Do not follow this link