sync commands

2026-05-24 06:35:33 +00:00 · 2022-02-04 08:02:48 +00:00
parent 7924861810
commit 565bc70843
2 changed files with 14 additions and 14 deletions
@@ -118,8 +118,8 @@ responseToView cmd = \case
    api = (highlight cmd :)
    r = (plain cmd :)
    -- this function should be `r` for "synchronous", `id` for "asynchronous" command responses
-    -- r' = r
-    r' = id
+    -- r' = id
+    r' = r

 viewChatItem :: ChatInfo c -> ChatItem c d -> [StyledString]
 viewChatItem chat (ChatItem cd meta content) = case (chat, cd) of