type sig

1 files changed, 6 insertions, 0 deletions

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))