Add GET/POST stub to inbox/outbox

parent f95b98b0
......@@ -96,14 +96,22 @@
`(p "Hi there! This is " ,(users-name) "'s site.")))])]))
(define (inbox req)
(render-ok
(generic-base-tmpl
'(p "Inbox goes here!"))))
(match (request-method req)
[#"GET"
(render-ok
(generic-base-tmpl
'(p "Inbox goes here!")))]
[#"POST"
'TODO]))
(define (outbox req)
(render-ok
(generic-base-tmpl
'(p "Outbox goes here!"))))
(match (request-method req)
[#"GET"
(render-ok
(generic-base-tmpl
'(p "Outbox goes here!")))]
[#"POST"
'TODO]))
(define (post-note req)
'TODO)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment