From d536380b518186c94f554f9f28b56512672ebfee Mon Sep 17 00:00:00 2001
From: Victor Fors <krakow89@gmail.com>
Date: Mon, 18 Apr 2022 22:17:18 +0200
Subject: [PATCH] custom json parsing

---
 parking.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/parking.scm b/parking.scm
index 5fe958a..b0f1ef3 100644
--- a/parking.scm
+++ b/parking.scm
@@ -55,18 +55,19 @@
 
 (define (get-parking-lots)
   (let ((result (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0"))))
-    (vector->list (value 'ParkingAreaNewList result))))
+    (value 'ParkingAreaNewList result)))
 
 (define (computerized? lot)
   (has-key? 'ParkingSpacesAvailable lot))
 
 (define (only-has-handicap-spots? lot)
-  (equal? #(4) (value 'ParkingTypes lot)))
+  (equal? '(4) (value 'ParkingTypes lot)))
 
 (define (electric-car-lot? lot)
   (member? 3 (value 'ParkingTypes lot)))
 
 (define (main)
+  (json-parsers (cons `(array . ,identity) (json-parsers)))
   (display-newline "Parking spaces available:")
   (let ((lots (sort-via string-ci<? (curry value 'Name) (get-parking-lots))))
     (map (compose display-newline (curry format-assoc '(Name ": " ParkingSpacesAvailable "/" ParkingSpaces)))