From 418568557b2b0d2ca977e5fe1594ed280b4f92f8 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 6 Feb 2026 05:32:10 +0300
Subject: Move blank-p to strings.scm.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/strings.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'transform')

diff --git a/transform/strings.scm b/transform/strings.scm
index 51c5ed1..7b62349 100644
--- a/transform/strings.scm
+++ b/transform/strings.scm
@@ -17,8 +17,12 @@
             string-capitalize-first
             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)
-- 
cgit 1.4.1