comment

1 files changed, 2 insertions, 0 deletions

diff --git a/Pty.hs b/Pty.hs
index 3d62e96..e1da2b4 100644
--- a/Pty.hs
+++ b/Pty.hs
@@ -22,6 +22,8 @@ runWithPty cmd params a = bracket setup cleanup go
 		(p, ph) <- spawnWithPty Nothing True cmd params
 			(maybe 80 Console.width sz, maybe 25 Console.height sz)
 		_ <- installHandler windowChange (Catch (forwardresize p)) Nothing
+		-- Set the pty's terminal attributes to the same ones that
+		-- the outer terminal had.
 		System.Posix.Pty.setTerminalAttributes p as Immediately
 		-- This is similar to cfmakeraw(3).
 		let masteras = as