diff options
-rw-r--r-- | jterm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -411,7 +411,7 @@ handleEvent buffer display win bgcolour fgcolour linecolour selcolour font event redraw T toAppend -> do let noesc = stripAnsiEscapeCodes toAppend - expandedTabs = T.intercalate "\n" $ map expandTabs $ T.splitOn "\n" noesc + expandedTabs = T.intercalate "\n" $ map expandTabs $ concatMap (T.splitOn "\n") $ concatMap (T.splitOn "\r") $ T.splitOn "\r\n" noesc cl = ptycursor b & linePos linePos p = content b & R.splitAt p & fst & R.lengthAsPosition & posLine delins' True (ptycursor b) (ptycursor b) $ R.fromText expandedTabs @@ -510,7 +510,7 @@ handleEvent buffer display win bgcolour fgcolour linecolour selcolour font event go x = mconcat x watch :: Pty -> IO HandledEvent -watch h = T . T.filter (/= '\r') . T.pack . B.toString <$> readPty h +watch h = T . T.pack . B.toString <$> readPty h main :: IO () main = do |