clear cache before refresh.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 6717c4b..333369f 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -19,6 +19,7 @@ import System.Directory
 import System.FilePath.Posix
 import System.IO
 import System.Posix.User
+import System.Process
 import qualified Codec.Binary.Base64 as Base64
 import qualified Data.ByteString.Lazy as L
 import qualified Data.ByteString.Lazy.Char8 as Char8
@@ -230,6 +231,8 @@ refreshCache rt rootdir = do
     -- sshspathpub0 = fromMaybe "" rootdir ++ "/etc/ssh/ssh_host_rsa_key.pub"
     -- contactipsec0 = fromMaybe "" rootdir ++ "/etc/ipsec.d/certs/%(onion).pem"
 
+    callCommand ("rm -rf "++ mkpath "*") -- clean up, in case gpg altered the keyring.
+
     -- Finally, export public keys if they do not exist.
     flip (maybe $ warn "missing working key?") (rtGrip rt) $ \grip -> do
     either warn (write $ mkpath "root/.ssh/id_rsa.pub")