Remove "string->identifier" for the dataset directory name.

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

1 files changed, 9 insertions, 9 deletions

diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 1730f95..cd3081c 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -21,15 +21,15 @@
 (define (infopages/sql->rtf result)
   (let* ((get (cut assoc-ref result <>))
          (get* (compose (lambda (str)
-                           (if (string-blank? str)
-                               #f
-                               str))
-                         get))
-         (identifier (string->identifier
-                      ""
-                      (regexp-substitute/global #f "[^A-Za-z0-9:]"
-                                                (get "InfoPageName")
-                                                'pre "_" 'post)))
+                          (if (string-blank? str)
+                              #f
+                              str))
+                        get))
+         (identifier
+          (regexp-substitute/global
+           #f "[^A-Za-z0-9:]"
+           (get "InfoPageName")
+           'pre "_" 'post))
          (dir-name (string-append "/export/data/genenetwork/gn-docs/datasets/"))
          (file-name (cut string-append dir-name <>))
          (summary (get* "Summary"))