about summary refs log tree commit diff
path: root/examples/dump-dataset-metadata.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-21 14:45:46 +0300
committerMunyoki Kilyungi2023-08-21 14:45:46 +0300
commit0d651ee8ef5f82a2fc3339329d2c0af6f84a745f (patch)
tree98e2e5f5ccb97520a2a75d59192076abe04b2b1f /examples/dump-dataset-metadata.scm
parentadd95e737f61fdf3e8f244dd7ebedca963514bb7 (diff)
downloadgn-transform-databases-0d651ee8ef5f82a2fc3339329d2c0af6f84a745f.tar.gz
Replace inbredSet with set as the string-identifier
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-dataset-metadata.scm')
-rwxr-xr-xexamples/dump-dataset-metadata.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index 8f381b7..a127e57 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -191,9 +191,9 @@
                              (field DatasetStatus DatasetStatusName)))
     (set gnt:belongsToSet
          (string->identifier
-            "inbredSet" (field InbredSet Name)
-            #:separator ""
-            #:proc string-capitalize-first))
+          "set" (field InbredSet Name)
+          #:separator ""
+          #:proc string-capitalize-first))
     (set gnt:hasTissue (string->identifier "tissue"
                                            (field Tissue Short_Name)))
     (set gnt:usesNormalization
@@ -273,7 +273,7 @@
                       '^^xsd:date))
     (set gnt:belongsToSet
          (string->identifier
-          "inbredSet" (field InbredSet Name)
+          "set" (field InbredSet Name)
           #:separator ""
           #:proc string-capitalize-first))))
 
@@ -303,7 +303,7 @@
                       '^^xsd:date))
     (set gnt:belongsToSet
          (string->identifier
-            "inbredSet" (field InbredSet Name)
+            "set" (field InbredSet Name)
             #:separator ""
             #:proc string-capitalize-first))))
 
@@ -350,7 +350,7 @@
           (field Tissue Short_Name)))
     (set gnt:belongsToSet
          (string->identifier
-          "inbredSet" (field InbredSet Name)
+          "set" (field InbredSet Name)
           #:separator ""
           #:proc string-capitalize-first))))