diff --git a/admiral-edu/dispatch-typed.rkt b/admiral-edu/dispatch-typed.rkt index 7c23815..3bb718d 100644 --- a/admiral-edu/dispatch-typed.rkt +++ b/admiral-edu/dispatch-typed.rkt @@ -26,11 +26,7 @@ (match path [(cons "assignments" url) (define page-result (assignments:load session url post)) - ;; FIXME: this cond should be unnecessary, result should just be list of xexprs - (cond [(response? page-result) page-result] - [else (plain-page - "Assignments" - page-result)])] + page-result] [(list "send-test-email") (cond [(send-email (ct-session-uid session) "Test Email sent by Captain Teach" @@ -40,4 +36,4 @@ [else (plain-page "Assignments" '((p "email not sent; disabled, or bad uid")))] )] - [else (raise-404-not-found)])) \ No newline at end of file + [else (raise-404-not-found)]))