From 9d133bc70f05db2eab84c9c8b380e779b8ce2d9f Mon Sep 17 00:00:00 2001
From: Victor Fors <krakow89@gmail.com>
Date: Mon, 18 Apr 2022 23:34:08 +0200
Subject: [PATCH] refactoring

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

diff --git a/parking.scm b/parking.scm
index 5c90c4c..9902d9e 100644
--- a/parking.scm
+++ b/parking.scm
@@ -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)