diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 19:19:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 19:19:48 -0400 |
| commit | 808392f21e7bfb36358a483e9e05f297859ba55d (patch) | |
| tree | 6b3189bebf731d3c79bfbe8356ccd8845ae5201b /CmdLine.hs | |
| parent | 6d5919199d49384240e13ebee67348a35f3ef85b (diff) | |
reduce amount of time privdata is in ram
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |