keyring home globals

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index d903b0f..9c88f6c 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -2407,7 +2407,7 @@ main = do
     let keypairs = catMaybes keypairs0
         btcpairs = catMaybes btcpairs0
 
-    (homedir,secring,pubring,grip0) <- getHomeDir ( concat <$> Map.lookup "--homedir" margs)
+    (homedir,secring,pubring,grip0) <- getHomeDir ( join . take 1 <$> Map.lookup "--homedir" margs)
 
     let keyrings = secring:pubring:keyrings_