Write out JSON as a string for traits

1 files changed, 5 insertions, 5 deletions

diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index d85a51f..07f5c9c 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -77,11 +77,11 @@ When that is the case we might as well write the phenotype file because we have
 (define (write-json id recs)
   (display id)
   (newline)
-  (write (scm->json recs))
-  (write (scm->json (map (lambda (r)
-                               r
-                                 )
-                           recs)))
+  (write (scm->json-string (map (lambda (r)
+                                  (match (pk r)
+                                    [(strain-id . value) (cons (bxd-name strain-id) value)]
+                                 ))
+                           (reverse recs))))
   (newline)
   )