1 files changed, 4 insertions(+), 0 deletions(-)

M server.rkt

@@ 89,12 89,16 @@
                          (insert-first (car left) (cdr left)))))
                done)))))
 
+(define (results-view req)
+  (response/json (results votes)))
+
 (define-values (dispatcher url-generator)
   (dispatch-rules
    [("candidates") candidates]
    [("vote") #:method "post" vote]
    [("sign") #:method "post" sign]
    [("key") key]
+   [("results") results-view]
    [else candidates]))
 
 (displayln "starting servlet...")