enable tty over ssh
This commit is contained in:
parent
3968241b82
commit
7b796bcb9c
|
@ -189,7 +189,7 @@ spin hn hst = do
|
||||||
where
|
where
|
||||||
hostprivdata = show . filterPrivData hst <$> decryptPrivData
|
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
|
let finish = do
|
||||||
senddata toh "privdata" privDataMarker privdata
|
senddata toh "privdata" privDataMarker privdata
|
||||||
hClose toh
|
hClose toh
|
||||||
|
|
Loading…
Reference in New Issue