From 849874fdfe11003f05abe5f82efde974a8c8a388 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 21 Aug 2023 14:49:55 +0300
Subject: Rename define-dump -> define-transformer

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/dump-dataset-metadata.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'examples/dump-dataset-metadata.scm')

diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index a127e57..6173201 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -34,7 +34,7 @@
                        (list first-name last-name (fix-email-id email))
                        "_")))
 
-(define-dump dump-investigators
+(define-transformer dump-investigators
   ;; There are a few duplicate entries. We group by email to
   ;; deduplicate.
   (tables (Investigators)
@@ -56,7 +56,7 @@
     (set v:postal-code (field Investigators ZipCode))
     (set v:country-name (field Investigators Country))))
 
-(define-dump dump-gene-chip
+(define-transformer dump-gene-chip
   (tables (GeneChip
            (left-join Species "USING (SpeciesId)")))
   (schema-triples
@@ -87,7 +87,7 @@
          (ontology 'geoSeries:
                    (string-trim-both (field GeneChip GeoPlatform))))))
 
-(define-dump dump-info-files
+(define-transformer dump-info-files
   (tables (InfoFiles
            (left-join PublishFreeze "ON InfoFiles.InfoPageName = PublishFreeze.Name")
            (left-join GenoFreeze "ON InfoFiles.InfoPageName = GenoFreeze.Name")
@@ -251,7 +251,7 @@
                                  (field Datasets Acknowledgment)))))
 
 ;; These are phenotype datasets that don't have Infofile metadata
-(define-dump dump-publishfreeze
+(define-transformer dump-publishfreeze
   (tables (PublishFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = PublishFreeze.Name")
            (left-join InbredSet "ON PublishFreeze.InbredSetId = InbredSet.InbredSetId"))
@@ -277,7 +277,7 @@
           #:separator ""
           #:proc string-capitalize-first))))
 
-(define-dump dump-genofreeze
+(define-transformer dump-genofreeze
   (tables (GenoFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = GenoFreeze.Name")
            (left-join InbredSet "ON GenoFreeze.InbredSetId = InbredSet.InbredSetId"))
@@ -308,7 +308,7 @@
             #:proc string-capitalize-first))))
 
 ;; Molecular Traits are also referred to as ProbeSets
-(define-dump dump-probesetfreeze
+(define-transformer dump-probesetfreeze
   (tables (ProbeSetFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name")
            (left-join ProbeFreeze "USING (ProbeFreezeId)")
-- 
cgit v1.2.3