|
|
|
@@ -72,8 +72,8 @@ |
|
|
|
(cons (string->symbol (string-downcase k)) v))) |
|
|
|
(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))) |
|
|
|
(filter (conjoin computerized? (complement only-has-handicap-spots?)) lots)))) |
|
|
|
(map (compose display-newline (curry format-assoc '(name ": " parkingspacesavailable "/" parkingspaces))) |
|
|
|
(filter (conjoin computerized? (complement only-has-handicap-spots?)) |
|
|
|
(sort-via string-ci<? (curry value 'name) (get-parking-lots))))) |
|
|
|
|
|
|
|
(main) |
