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