diff options
| author | Pjotr Prins | 2024-05-13 12:30:50 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2024-05-13 12:30:50 +0200 |
| commit | 7f565b82472147996f803715188bd2826c47d192 (patch) | |
| tree | 86258104b7b93494fcb3d645849fd6b04d05ecea | |
| parent | 3bd6904ce66c28363bb535cc7d66d5403a388739 (diff) | |
| download | gn-guile-7f565b82472147996f803715188bd2826c47d192.tar.gz | |
Write out JSON as a string for traits
| -rwxr-xr-x | scripts/precompute/list-traits-to-compute.scm | 10 |
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) ) |