aboutsummaryrefslogtreecommitdiff
path: root/examples/dump-species-metadata.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-11 16:49:04 +0300
committerMunyoki Kilyungi2023-08-15 19:32:47 +0300
commitf1b6532bb1a8d5e402111c57da9050036902fc5a (patch)
tree38bc56f3ccee2bde468d04881b8b35e5bbd4f623 /examples/dump-species-metadata.scm
parent196ca58b58c8da0709e290290d340a381f3a4e44 (diff)
downloadgn-transform-databases-f1b6532bb1a8d5e402111c57da9050036902fc5a.tar.gz
Remove explicity cast when dumping strains
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-species-metadata.scm')
-rwxr-xr-xexamples/dump-species-metadata.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm
index a7e242a..d761439 100755
--- a/examples/dump-species-metadata.scm
+++ b/examples/dump-species-metadata.scm
@@ -114,7 +114,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
""
(regexp-substitute/global
#f "[^A-Za-z0-9:]"
- (field ("CAST(CONVERT(BINARY CONVERT(Strain.Name USING latin1) USING utf8) AS VARCHAR(15000))" StrainName))
+ (field Strain Name)
'pre "_" 'post)
#:separator ""
#:proc string-capitalize-first)