Use insert-missing-data-and-return-all-ids for locations

guix-data-service/model/location.scm

@@ -19,35 +19,15 @@
   #:use-module (ice-9 match)
   #:use-module (guix utils)
   #:use-module (squee)
+  #:use-module (guix-data-service model utils)
   #:export (location->location-id))
 
-(define select-existing-location
-  (string-append
-   "SELECT id "
-   "FROM locations "
-   "WHERE file = $1 AND line = $2 AND column_number = $3"))
-
-(define insert-location
-  (string-append
-   "INSERT INTO locations "
-   "(file, line, column_number) VALUES "
-   "($1, $2, $3) "
-   "RETURNING id"))
-
 (define (location->location-id conn location)
-  (match location
+  (car
-    (($ <location> file line column)
+   (insert-missing-data-and-return-all-ids
-     (string->number
+    conn
-      (match (exec-query conn
+    "locations"
-                         select-existing-location
+    '(file line column_number)
-                         (list file
+    (match location
-                               (number->string line)
+      (($ <location> file line column)
-                               (number->string column)))
+       (list (list file line column)))))))
-        (((id)) id)
-        (()
-         (caar
-          (exec-query conn
-                      insert-location
-                      (list file
-                            (number->string line)
-                            (number->string column))))))))))