enable tty over ssh
This commit is contained in:
parent
3968241b82
commit
7b796bcb9c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue