02/03: Neaten up formatting in select-derivation-output-id

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit abff41f9ae2593f04b899c54da9745d09f918a85
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Sep 24 17:16:30 2021 +0100

    Neaten up formatting in select-derivation-output-id
---
 guix-data-service/model/derivation.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/guix-data-service/model/derivation.scm 
b/guix-data-service/model/derivation.scm
index 6997a9d..a363e31 100644
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@@ -1086,12 +1086,14 @@ VALUES ($1, $2)"
   (mlambda (conn name path)
     (match (exec-query
             conn
-            (string-append
-             "SELECT derivation_outputs.id FROM derivation_outputs "
-             "INNER JOIN derivations ON "
-             "derivation_outputs.derivation_id = derivations.id "
-             "WHERE derivations.file_name = '" path "' "
-             "AND derivation_outputs.name = '" name "';"))
+            "
+SELECT derivation_outputs.id FROM derivation_outputs
+INNER JOIN derivations
+  ON derivation_outputs.derivation_id = derivations.id
+WHERE derivations.file_name = $1
+  AND derivation_outputs.name = $2"
+            path
+            name)
       (((id))
        id)
       (()