branch master updated: Remove leftover pk calls.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 6f445ec  Remove leftover pk calls.
6f445ec is described below

commit 6f445ec3bfceed16bdbb3b3a3143e8b0343cd837
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Sep 13 17:20:33 2021 +0200

    Remove leftover pk calls.
    
    * src/cuirass/http.scm (url-handler): Remove it.
    * tests/database.scm ("database"): Ditto.
---
 src/cuirass/http.scm | 2 +-
 tests/database.scm   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 6fc09f9..69f9834 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -982,7 +982,7 @@ passed, only display JOBS targeting this SYSTEM."
     ;; Replicate the Guix publish log interface for compatibility purposes.
     (('GET "log" output)
      (let* ((output (string-append (%store-prefix) "/" output))
-            (log (db-get-log-from-output (pk output))))
+            (log (db-get-log-from-output output)))
        (if (and log (file-exists? log))
            (respond-compressed-file log)
            (respond-not-found (uri->string (request-uri request))))))
diff --git a/tests/database.scm b/tests/database.scm
index 9e58592..53a7aac 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -237,8 +237,8 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 
0);")
   (test-assert "db-get-jobs same-outputs"
     (match (db-get-jobs 4 '())
       ((job)
-       (string=? (assq-ref (pk (db-get-build
-                                (assq-ref job #:build)))
+       (string=? (assq-ref (db-get-build
+                            (assq-ref job #:build))
                            #:derivation)
                  "/test.drv"))))