From 7f565b82472147996f803715188bd2826c47d192 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Mon, 13 May 2024 12:30:50 +0200 Subject: Write out JSON as a string for traits --- scripts/precompute/list-traits-to-compute.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'scripts') 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) ) -- cgit v1.2.3