diff options
| author | joe <joe@jerkface.net> | 2016-04-26 02:25:14 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-04-26 02:25:14 -0400 |
| commit | 685cb594a19b0396367c5d5f0b6e0cba69eecd6e (patch) | |
| tree | 5084693ba40e4cb9e0f80f49bf174f17639f78fb /lib/Kiki.hs | |
| parent | e5fd815a33e16659da9099a06f2e428f67269bd9 (diff) | |
remove debug prints
Diffstat (limited to 'lib/Kiki.hs')
| -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 |