!import "../lib/prelude.tri"   !Local
!import "../lib/io.tri"        !Local
!import "../lib/socket.tri"    !Local
!import "../lib/http.tri"      !Local

myRouter = (method path headers body :
  matchBool
    (okResponse (append "Hello from " (append path "\n")))
    (methodNotAllowedResponse)
    (strEq? method "GET"))

main = io (
  onOk_ socket (server :
    onOk_ (bindSocket server "127.0.0.1" 9050) (_ :
      onOk_ (listen server 5) (_ :
        serveForever server (httpHandler myRouter)))))