From 808392f21e7bfb36358a483e9e05f297859ba55d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 19:19:48 -0400
Subject: [PATCH] reduce amount of time privdata is in ram

---
 CmdLine.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CmdLine.hs b/CmdLine.hs
index 1d7316f..144e22a 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