Adapter for using microhttp as a ring server.
Doesn't support the required :remote-addr
key properly because microhttp
does not support recovering that information. This isn't the biggest loss as
that information isn't reliable in modern cloud environments anyways, but
worth noting.
This was done as a proof of concept, but the code is simple enough that I am confident it is as production ready as microhttp.
io.github.bowbahdoe/microhttp-ring-adapter {:git/sha "b3c3075fbe7b13a6c505eacbdaf264b18d865b6d"}
(require '[dev.mccue.microhttp-ring-adapter :as microhttp])
(defn handler
[request]
{:status 200
:headers {}
:body (str request)})
(def event-loop (microhttp/create-event-loop #'handler {:port 1242}))
(.start event-loop)