@@ -174,9 +174,13 @@ runInputProcessorLoop classifyTable input = do
174174attributeControl :: Fd -> IO (IO (), IO ())
175175attributeControl fd = do
176176 original <- getTerminalAttributes fd
177− let vtyMode = foldl withoutMode original [ StartStopOutput, KeyboardInterrupts
178− , EnableEcho, ProcessInput, ExtendedFunctions
179− ]
177+ let vtyMode = foldl withMode clearedFlags flagsToSet
178+ clearedFlags = foldl withoutMode original flagsToUnset
179+ flagsToSet = [ MapCRtoLF
180+ ]
181+ flagsToUnset = [ StartStopOutput, KeyboardInterrupts
182+ , EnableEcho, ProcessInput, ExtendedFunctions
183+ ]
180184 let setAttrs = setTerminalAttributes fd vtyMode Immediately
181185 unsetAttrs = setTerminalAttributes fd original Immediately
182186 return (setAttrs,unsetAttrs)