1 files changed, 12 insertions, 6 deletions
diff --git a/transform/strings.scm b/transform/strings.scm
index aba554a..7b62349 100644
--- a/transform/strings.scm
+++ b/transform/strings.scm
@@ -15,15 +15,21 @@
             snake->lower-camel
             lower-case-and-replace-spaces
             string-capitalize-first
-            normalize-string-field))
+            normalize-string-field
+            fix-email-id
+            blank-p
+            investigator-attributes->id))
+
+(define (blank-p str)
+  (if (string-blank? str) #f str))
 
 (define (lower-case-and-replace-spaces str)
   (string-map
-    (lambda (c)
-      (if (char=? c #\space)
-          #\- ; replace space with hyphen
-          c)) ; convert character to lower case
-    (string-downcase str)))
+   (lambda (c)
+     (if (char=? c #\space)
+         #\-                         ; replace space with hyphen
+         c))                         ; convert character to lower case
+   (string-downcase str)))
 
 (define (time-unix->string seconds . maybe-format)
   "Given an integer saying the number of seconds since the Unix