17 lines
457 B
Plaintext
17 lines
457 B
Plaintext
!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)))))
|