From d2624834e537e4377add361a29c7076d4a9c85e4 Mon Sep 17 00:00:00 2001 From: Pavel Panchekha Date: Mon, 24 Feb 2025 17:11:49 -0700 Subject: [PATCH] fmt --- src/api/demo.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/api/demo.rkt b/src/api/demo.rkt index 8052f8417..57e5b7f8a 100644 --- a/src/api/demo.rkt +++ b/src/api/demo.rkt @@ -127,10 +127,7 @@ `(dl ((class "function-list")) ,@(append-map fn-class fn-classes))) -(define (herbie-page #:title title - #:show-title [title? true] - #:scripts [scripts '()] - . body) +(define (herbie-page #:title title #:show-title [title? true] #:scripts [scripts '()] . body) `(html (head (meta ([charset "utf-8"])) (title ,title) ,@(for/list ([script scripts]) @@ -285,7 +282,7 @@ (list (header #"X-Job-Count" (string->bytes/utf-8 (~a (job-count)))) (header #"X-Herbie-Job-ID" (string->bytes/utf-8 job-id)) (header #"Access-Control-Allow-Origin" (string->bytes/utf-8 "*"))) - (curry write-json job-result)))])) + (curry write-json job-result))])) (define (improve-common req body go-back) (match (extract-bindings 'formula (request-bindings req)) @@ -400,7 +397,7 @@ (list (header #"X-Job-Count" (string->bytes/utf-8 (~a (job-count)))) (header #"X-Herbie-Job-ID" (string->bytes/utf-8 job-id)) (header #"Access-Control-Allow-Origin" (string->bytes/utf-8 "*"))) - (curry write-json (hash-ref job-result 'timeline))))])) + (curry write-json (hash-ref job-result 'timeline)))])) ; Macro for defining async and sync versions of an endpoint. (define-syntax-rule (define-endpoint ([sync-name async-name] post-data) body ...)