From c43883d074b09c9d86de9873d261bd34aa7ac1fb Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 14 Apr 2014 22:43:41 -0400
Subject: type sig

---
 KeyRing.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'KeyRing.hs')

diff --git a/KeyRing.hs b/KeyRing.hs
index 995afe6..d931302 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -633,6 +633,12 @@ parseOptionFile fname = do
         notComment cs      = not (all isSpace cs)
     return ys
 
+-- | returns ( home directory
+--           , path to secret ring
+--           , path to public ring
+--           , fingerprint of working key
+--           )
+getHomeDir :: Maybe FilePath -> IO (KikiCondition (FilePath,FilePath,FilePath,Maybe String))
 getHomeDir protohome = do
         homedir <- envhomedir protohome
         flip (maybe (return CantFindHome))
-- 
cgit v1.2.3