From 98d8f5392dd86a3e49a5bf5f1fc843a71b811512 Mon Sep 17 00:00:00 2001
From: Craig Everett <zxq9@zxq9.com>
Date: Sat, 21 Dec 2019 19:32:41 +0900
Subject: [PATCH] Allow printing users who lack email addresses

---
 zomp/lib/otpr/zx/0.4.0/src/zx_lib.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/zomp/lib/otpr/zx/0.4.0/src/zx_lib.erl b/zomp/lib/otpr/zx/0.4.0/src/zx_lib.erl
index efabcfa..d87c288 100644
--- a/zomp/lib/otpr/zx/0.4.0/src/zx_lib.erl
+++ b/zomp/lib/otpr/zx/0.4.0/src/zx_lib.erl
@@ -566,8 +566,11 @@ zsp_path(PackageID = {Realm, _, _}) ->
 
 -spec print_user({zx:user_name(), zx:real_name(), [zx:contact_info()]}) -> ok.
 
-print_user({UserName, RealName, [{"email", Email}]}) ->
-    io:format("~ts (~ts <~ts>) ~n", [UserName, RealName, Email]).
+print_user({UserName, RealName, ContactInfo}) ->
+    case proplist:get_value("email", ContactInfo, none) of
+        none  -> io:format("~ts (~ts)~n", [UserName, RealName]);
+        Email -> io:format("~ts (~ts) <~ts>~n", [UserName, RealName, Email])
+    end.
 
 
 -spec find_latest_compatible(Version, Versions) -> Result