Start handling ids as numbers, rather than strings

squee, returns all data as strings, and expects strings as inputs to
queries. So, keeping the ids as strings was easy initially, but it means that
you can't tell from the type whether it should be quoted, or not...

Therefore, handle ids as strings, converting them to numbers when they're
fetched from the database, and back to strings as part of the queries.

1 files changed, 14 insertions, 13 deletions

diff --git a/guix-data-service/model/location.scm b/guix-data-service/model/location.scm
index 9850377..6e010da 100644
--- a/guix-data-service/model/location.scm
+++ b/guix-data-service/model/location.scm
@@ -37,16 +37,17 @@
 (define (location->location-id conn location)
   (match location
     (($ <location> file line column)
-     (match (exec-query conn
-                        select-existing-location
-                        (list file
-                              (number->string line)
-                              (number->string column)))
-       (((id)) id)
-       (()
-        (caar
-         (exec-query conn
-                     insert-location
-                     (list file
-                           (number->string line)
-                           (number->string column)))))))))
+     (string->number
+      (match (exec-query conn
+                         select-existing-location
+                         (list file
+                               (number->string line)
+                               (number->string column)))
+        (((id)) id)
+        (()
+         (caar
+          (exec-query conn
+                      insert-location
+                      (list file
+                            (number->string line)
+                            (number->string column))))))))))