D8666.diff
No OneTemporary
Actions

Size

520 B

Subscribers

None

D8666.diff
View Options

	diff --git a/src/main/phabricator/import.lisp b/src/main/phabricator/import.lisp
	--- a/src/main/phabricator/import.lisp
	+++ b/src/main/phabricator/import.lisp
	@@ -66,8 +66,9 @@
	(cl-mysql:query "set names 'utf8'"))

	(defun sanitize-address (address)
	- (when email-address-sanitizer
	- (funcall email-address-sanitizer address)))
	+ (if email-address-sanitizer
	+ (funcall email-address-sanitizer address)
	+ address))

	(defun user-primary-email (user)
	(find 1 (user-emails user) :key #'email-isprimary))