init-key command

1 files changed, 21 insertions, 0 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index e0994cf..ab7450b 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -86,6 +86,14 @@ module KeyRing
     , decodeBlob
     , selectPublicKeyAndSigs
     , x509cert
+    , getHomeDir
+    , unconditionally
+    , SecretPEMData(..)
+    , readSecretPEMFile
+    , writeInputFileL
+    , InputFileContext(..)
+    , onionNameForContact
+    , keykey
     ) where
 
 import System.Environment
@@ -1417,6 +1425,13 @@ derRSA rsa = do
     k <- rsaKeyFromPacket rsa
     return $ encodeASN1 DER (toASN1 k [])
 
+unconditionally :: IO (KikiCondition a) -> IO a
+unconditionally action = do
+    r <- action
+    case r of
+        KikiSuccess x -> return x
+        e -> error $ errorString e
+
 try :: Monad m => KikiCondition a -> (a -> m (KikiCondition b)) -> m (KikiCondition b)
 try x body =
     case functorToEither x of
@@ -3155,3 +3170,9 @@ toCTimeSpec t = CTimeSpec (CTime sec) (truncate $ 10^(9::Int) * frac)
 foreign import ccall unsafe "futimens"
     c_futimens :: CInt -> Ptr CTimeSpec -> IO CInt
 #endif
+
+onionNameForContact :: KeyKey -> KeyDB -> Maybe String
+onionNameForContact kk db = do
+    contact <- Map.lookup kk db
+    let (_,(name:_,_)) = getHostnames contact
+    return $ Char8.unpack name