From b3d3372abf46ee1ec308c77201c00ab6d8bfeff2 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 11 Apr 2014 21:31:43 -0400
Subject: keyring home globals

---
 kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kiki.hs')

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_
 
-- 
cgit v1.2.3