summaryrefslogtreecommitdiff
path: root/KeyRing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'KeyRing.hs')
-rw-r--r--KeyRing.hs6
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
633 notComment cs = not (all isSpace cs) 633 notComment cs = not (all isSpace cs)
634 return ys 634 return ys
635 635
636-- | returns ( home directory
637-- , path to secret ring
638-- , path to public ring
639-- , fingerprint of working key
640-- )
641getHomeDir :: Maybe FilePath -> IO (KikiCondition (FilePath,FilePath,FilePath,Maybe String))
636getHomeDir protohome = do 642getHomeDir protohome = do
637 homedir <- envhomedir protohome 643 homedir <- envhomedir protohome
638 flip (maybe (return CantFindHome)) 644 flip (maybe (return CantFindHome))