enable tty over ssh

This commit is contained in:
Joey Hess 2014-11-18 00:22:05 -04:00
parent 3968241b82
commit 7b796bcb9c
1 changed files with 1 additions and 1 deletions

View File

@ -189,7 +189,7 @@ spin hn hst = do
where
hostprivdata = show . filterPrivData hst <$> decryptPrivData
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 "privdata" privDataMarker privdata
hClose toh