From a7a8ad72f2236e036880e3f4f82e4b3e534fd746 Mon Sep 17 00:00:00 2001
From: Craig Everett <zxq9@zxq9.com>
Date: Mon, 16 Dec 2019 18:40:12 +0900
Subject: [PATCH] Fix named key case

---
 zomp/lib/otpr/zx/0.3.0/src/zx_key.erl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/zomp/lib/otpr/zx/0.3.0/src/zx_key.erl b/zomp/lib/otpr/zx/0.3.0/src/zx_key.erl
index 1b577b1..999da29 100644
--- a/zomp/lib/otpr/zx/0.3.0/src/zx_key.erl
+++ b/zomp/lib/otpr/zx/0.3.0/src/zx_key.erl
@@ -24,7 +24,7 @@
 
 -spec path(public | private, zx:key_id()) -> file:filename().
 
-path(Type, {Realm, KeyHash}) ->
+path(Type, {Realm, KeyHash}) when is_binary(KeyHash) ->
     Size = byte_size(KeyHash) * 8,
     <<N:Size>> = KeyHash,
     String = integer_to_list(N, 36),
@@ -33,7 +33,9 @@ path(Type, {Realm, KeyHash}) ->
             public  -> String ++ ".pub.der";
             private -> String ++ ".key.der"
         end,
-    zx_lib:path(key, Realm, Name).
+    zx_lib:path(key, Realm, Name);
+path(Type, {Realm, KeyName}) ->
+    zx_lib:path(key, Realm, KeyName).