tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

httpServer.tri (457B)

      1 !import "prelude"   !Local
      2 !import "io"        !Local
      3 !import "socket"    !Local
      4 !import "http"      !Local
      5 
      6 myRouter = (method path headers body :
      7   matchBool
      8     (okResponse (append "Hello from " (append path "\n")))
      9     (methodNotAllowedResponse)
     10     (strEq? method "GET"))
     11 
     12 main = io (
     13   onOk_ socket (server :
     14     onOk_ (bindSocket server "127.0.0.1" 9050) (_ :
     15       onOk_ (listen server 5) (_ :
     16         serveForever server (httpHandler myRouter)))))