From 81b697a602c86bb8b977078c1e470d0021eaddeb Mon Sep 17 00:00:00 2001 From: Victor Fors Date: Wed, 20 Apr 2022 16:51:32 +0200 Subject: [PATCH] refactor --- parking.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/parking.scm b/parking.scm index 1d65e2a..8e039a5 100644 --- a/parking.scm +++ b/parking.scm @@ -61,8 +61,8 @@ (with-input-from-file "key-parking" read-line)) (define (get-parking-lots) - (let ((result (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0")))) - (value 'parkingareanewlist result))) + (value 'parkingareanewlist + (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0")))) (define (computerized? lot) (has-key? 'parkingspacesavailable lot))