diff options
| -rw-r--r-- | lib/Kiki.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 1682811..0684830 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -102,11 +102,6 @@ importAndRefresh root cmn = do | |||
| 102 | -- ssl = Just "mkdir -p \"$(dirname $file)\" && openssl genrsa -out $file 1024" | 102 | -- ssl = Just "mkdir -p \"$(dirname $file)\" && openssl genrsa -out $file 1024" |
| 103 | (home,secring,pubring,mbwk) <- unconditionally $ getHomeDir homespec | 103 | (home,secring,pubring,mbwk) <- unconditionally $ getHomeDir homespec |
| 104 | osHomeDir <- if bUnprivileged then getHomeDirectory else return "/root" | 104 | osHomeDir <- if bUnprivileged then getHomeDirectory else return "/root" |
| 105 | putStrLn $ "gnupg home = " ++ show (home,secring,pubring,mbwk) | ||
| 106 | putStrLn $ "os home = " ++ show osHomeDir | ||
| 107 | -- gnupg home = ("TESTS/tmpgh","TESTS/tmpgh/secring.gpg","TESTS/tmpgh/pubring.gpg",Nothing) | ||
| 108 | -- os home = "/root" | ||
| 109 | |||
| 110 | 105 | ||
| 111 | -- Generate secring.gpg if it does not exist... | 106 | -- Generate secring.gpg if it does not exist... |
| 112 | gotsec <- doesFileExist secring | 107 | gotsec <- doesFileExist secring |