List all traits

1 files changed, 10 insertions, 1 deletions

diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index 163e197..6e9dcb3 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -87,7 +87,16 @@ When that is the case we might as well write the phenotype file because we have
                 (query (string-append "SELECT Id,StrainId,value FROM ProbeSetData WHERE " data-ids-query))
                 ]
            (display query)
+           (dbi-query db query)
+           (let [(id-traits (get-rows-apply db
+                  (lambda (r)
+                    (let [(id (assoc-ref r "Id"))
+                          (strain-id (assoc-ref r "StrainId"))
+                          (value (assoc-ref r "value"))]
+                      `(,id ,strain-id ,value)))
+                  '()))]
+             (display id-traits))
            ))
-       (run-list-traits-to-compute db 0 50) ;; start precompute
+       (run-list-traits-to-compute db 0 5) ;; start precompute
        ;; (write bxd-strains)
        ))))