reduce amount of time privdata is in ram

This commit is contained in:
Joey Hess 2014-03-30 19:19:48 -04:00
parent 6d5919199d
commit 808392f21e
1 changed files with 1 additions and 1 deletions

View File

@ -52,9 +52,9 @@ defaultMain getprops = go =<< processCmdLine
spin :: HostName -> IO ()
spin host = do
url <- getUrl
privdata <- gpgDecrypt (privDataFile host)
void $ boolSystem "git" [Param "commit", Param "-a", Param "-m", Param "propellor spin"]
void $ boolSystem "git" [Param "push"]
privdata <- gpgDecrypt (privDataFile host)
withHandle StdinHandle createProcessSuccess
(proc "ssh" ["root@"++host, bootstrap url]) $ \h -> do
hPutStr h $ unlines $ map (privDataMarker ++) $ lines privdata