From 134d9009a3526a77b19b92b7d5407775ce4f5962 Mon Sep 17 00:00:00 2001 From: David Florness Date: Sun, 10 Nov 2019 09:39:54 -0700 Subject: [PATCH] Create route to view IRV results --- server.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/server.rkt b/server.rkt index ea5cbd5..15db01f 100644 --- a/server.rkt +++ b/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...") -- 2.38.4