From c4985a06dab17109c0561f3a0058dc1e8e547dff Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 7 Aug 2023 16:10:11 +0300
Subject: Update publish-freeze dump

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/dump-phenotype.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'examples')

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
-- 
cgit v1.2.3