From c82e6ce80fd26146f6187b9babbba561f3b65973 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 7 Jul 2024 14:44:19 +0200
Subject: precompute: URL is now correct (validated)

---
 gn/data/hits.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gn')

diff --git a/gn/data/hits.scm b/gn/data/hits.scm
index a7ba45a..85c4912 100644
--- a/gn/data/hits.scm
+++ b/gn/data/hits.scm
@@ -33,7 +33,7 @@
   )
 
 (define (get-precompute-hits db first-id num)
-  (dbi-query db (string-append "select Locus, DataId, ProbeSetId, ProbeSetFreezeId from ProbeSetXRef where DataId>" (int-to-string first-id) " AND Locus_old is NULL ORDER BY DataId LIMIT " (format #f "~d" num)))
+  (dbi-query db (string-append "select Locus, DataId, ProbeSetId, ProbeSetFreezeId from ProbeSetXRef where DataId>" (int-to-string first-id) " AND Locus_old is NULL ORDER BY DataId LIMIT " (int-to-string num)))
   (map (lambda (r)
          (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId")))
          (get-rows db '())
-- 
cgit v1.2.3