From a829889e956890e29676de6addea9e53e704eb83 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 13 Apr 2014 14:21:05 -0400 Subject: [PATCH] propellor spin --- Propellor/CmdLine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 5be91c4..b58179f 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -174,7 +174,7 @@ spin hn = do cacheparams <- toCommand <$> sshCachingParams hn go cacheparams url =<< gpgDecrypt (privDataFile hn) where - go cacheparams url privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ [user, bootstrapcmd]) $ \(toh, fromh) -> do + go cacheparams url privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ ["-t", user, bootstrapcmd]) $ \(toh, fromh) -> do let finish = do senddata toh (privDataFile hn) privDataMarker privdata hClose toh