summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-04-26 02:25:14 -0400
committerjoe <joe@jerkface.net>2016-04-26 02:25:14 -0400
commit685cb594a19b0396367c5d5f0b6e0cba69eecd6e (patch)
tree5084693ba40e4cb9e0f80f49bf174f17639f78fb /lib
parente5fd815a33e16659da9099a06f2e428f67269bd9 (diff)
remove debug prints
Diffstat (limited to 'lib')
-rw-r--r--lib/Kiki.hs5
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