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 | |
parent | e5fd815a33e16659da9099a06f2e428f67269bd9 (diff) |
remove debug prints
Diffstat (limited to 'lib')
-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 |