dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-11-04 06:32:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

debug

Browse Source
This commit is contained in:
Evgeny @ SimpleX Chat committed 2026-10-21 09:45:33 +00:00
1 parent d2a624afad
commit d175dc2cff
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Terminal/Output.hs
+2 -2
View File
@@ -388,8 +388,8 @@ printMessage ChatTerminal {termSize = Size {height, width}, nextMessageRow} msg
-- because of accounting for control sequences in length
putStyled :: MonadTerminal m => StyledString -> m ()
putStyled (s1 :<>: s2) = putStyled s1 >> putStyled s2
putStyled (Styled [] s) = putString s
putStyled (Styled sgr s) = setSGR sgr >> putString s >> resetAttributes
putStyled (Styled [] s) = putText (T.pack s)
putStyled (Styled sgr s) = setSGR sgr >> putText (T.pack s) >> resetAttributes
setSGR :: MonadTerminal m => [SGR] -> m ()
setSGR = mapM_ $ \case