about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-07 16:10:11 +0300
committerMunyoki Kilyungi2023-08-07 16:10:11 +0300
commitc4985a06dab17109c0561f3a0058dc1e8e547dff (patch)
tree9bad9bc510effecce3a94257849ab61609cca6f5
parentb2b02ca69d390cef5b37585db7a8745e6ca87558 (diff)
downloadgn-transform-databases-c4985a06dab17109c0561f3a0058dc1e8e547dff.tar.gz
Update publish-freeze dump
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-xexamples/dump-phenotype.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm
index eb14d1f..9a1651a 100755
--- a/examples/dump-phenotype.scm
+++ b/examples/dump-phenotype.scm
@@ -43,8 +43,9 @@
                       '^^xsd:date))
     (set gnt:belongsToInbredSet
          (string->identifier
-          "inbredSet"
-          (field InbredSet Name InbredSetName)))))
+            "" (field InbredSet Name)
+            #:separator ""
+            #:proc string-capitalize-first))))
 
 (define-dump dump-phenotypes
   (tables (Phenotype