core: multiline output (#4520)

This commit is contained in:
Evgeny Poberezkin
2024-07-26 15:21:06 +01:00
committed by GitHub
parent 13bfc9e92b
commit 637189cc2d
+1 -1
View File
@@ -408,7 +408,7 @@ responseToView hu@(currentRH, user_) ChatConfig {logLevel, showReactions, showRe
CRArchiveImported archiveErrs -> if null archiveErrs then ["ok"] else ["archive import errors: " <> plain (show archiveErrs)]
CRAppSettings as -> ["app settings: " <> viewJSON as]
CRTimedAction _ _ -> []
CRCustomChatResponse u r -> ttyUser' u $ [plain r]
CRCustomChatResponse u r -> ttyUser' u $ map plain $ T.lines r
where
ttyUser :: User -> [StyledString] -> [StyledString]
ttyUser user@User {showNtfs, activeUser} ss