whiteline/Scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
Victor Fors 2022-04-20 16:51:32 +02:00
parent 10f2225bdd
commit 81b697a602
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
parking.scm
View File

@ -61,8 +61,8 @@
(with-input-from-file "key-parking" read-line)) (with-input-from-file "key-parking" read-line))
(define (get-parking-lots) (define (get-parking-lots)
(let ((result (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0")))) (value 'parkingareanewlist
(value 'parkingareanewlist result))) (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0"))))
(define (computerized? lot) (define (computerized? lot)
(has-key? 'parkingspacesavailable lot)) (has-key? 'parkingspacesavailable lot))