From 6d5919199d49384240e13ebee67348a35f3ef85b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 19:19:29 -0400 Subject: propellor spin --- CmdLine.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'CmdLine.hs') diff --git a/CmdLine.hs b/CmdLine.hs index 7f5cd79d..1d7316f3 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -54,6 +54,7 @@ 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"] withHandle StdinHandle createProcessSuccess (proc "ssh" ["root@"++host, bootstrap url]) $ \h -> do hPutStr h $ unlines $ map (privDataMarker ++) $ lines privdata @@ -79,6 +80,7 @@ boot props = do . filter (privDataMarker `isPrefixOf`) . lines <$> getContents + makePrivDataDir writeFileProtected privDataLocal (unlines privdata) ensureProperties props -- cgit v1.2.3