cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CmdLine.hs
View File

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