summaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 19:19:48 -0400
committerJoey Hess2014-03-30 19:19:48 -0400
commit808392f21e7bfb36358a483e9e05f297859ba55d (patch)
tree6b3189bebf731d3c79bfbe8356ccd8845ae5201b /CmdLine.hs
parent6d5919199d49384240e13ebee67348a35f3ef85b (diff)
reduce amount of time privdata is in ram
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 1d7316f3..144e22a8 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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