tricu

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

664cc315f466f9a8ea5b39e1b7e16febd78e1e7b950f86b0cecc0ec6d82fefa7.tri (438B)

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