From dcfe92323fa82c30a199e8d9640668800a93f47b Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Sat, 19 Aug 2023 16:10:02 +0300
Subject: Rename inbredSet identifier

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

(limited to 'examples/dump-probesetfreeze.scm')

diff --git a/examples/dump-probesetfreeze.scm b/examples/dump-probesetfreeze.scm
index f528139..fab41b4 100755
--- a/examples/dump-probesetfreeze.scm
+++ b/examples/dump-probesetfreeze.scm
@@ -101,7 +101,10 @@
           "tissue"
           (field Tissue Short_Name)))
     (set gnt:belongsToInbredSet
-         (string->identifier "inbredSet" (field InbredSet Name InbredSetName)))))
+         (string->identifier
+            "inbredSet" (field InbredSet Name)
+            #:separator ""
+            #:proc string-capitalize-first))))
 
 
 
-- 
cgit v1.2.3