!import "prelude"   !Local
!import "io"        !Local
!import "socket"    !Local
!import "http"      !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)))))