Update schema for several transforms.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 3 insertions, 13 deletions

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 1bec264..5a118b8 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -56,14 +56,12 @@
             "trait"
             (field ("CONCAT(IFNULL(InbredSet.InbredSetCode, PublishXRef.InbredSetId), '_', PublishXRef.Id)"
                     Phenotype))
-            #:separator "_"
-            #:proc (lambda (x) x))
+            #:separator "_")
     (set rdf:type 'gnc:phenotype)
     (set gnt:belongs_to_group
          (string->identifier
           "set" (field InbredSet Name InbredSetName)
-          #:separator "_"
-          #:proc string-capitalize-first))
+          #:separator "_"))
     ;; This is the trait's name
     (set gnt:trait_id
          (let ((trait-id (field PublishXRef Id)))
@@ -85,15 +83,7 @@
     (set dct:contributor (sanitize-rdf-string (field Phenotype Owner)))
     (set gnt:mean (annotate-field (field ("IFNULL(PublishXRef.mean, '')" mean))
                                   '^^xsd:double))
-    (set gnt:locus
-         (string->identifier
-          ""
-          (regexp-substitute/global
-           #f "[^A-Za-z0-9:]"
-           (sanitize-rdf-string (field PublishXRef Locus))
-           'pre "_" 'post)
-          #:separator ""
-          #:proc string-capitalize-first))
+    (set gnt:locus (sanitize-rdf-string (field PublishXRef Locus)))
     (set gnt:lod_score (annotate-field
                   (field ("IFNULL((PublishXRef.LRS/4.604), '')" lrs))
                   '^^xsd:double))