|
|
@@ -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 result))) |
|
|
|
|
|
|
|
|
(value 'parkingareanewlist |
|
|
|
|
|
(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)) |
|
|
|
