core: time actions on chat start (#2417)

src/Simplex/Chat/Controller.hs

@@ -519,6 +519,7 @@ data ChatResponse
   | CRMessageError {user :: User, severity :: Text, errorMessage :: Text}
   | CRChatCmdError {user_ :: Maybe User, chatError :: ChatError}
   | CRChatError {user_ :: Maybe User, chatError :: ChatError}
+  | CRTimedAction {action :: String, durationMilliseconds :: Int64}
   deriving (Show, Generic)
 
 logResponseToFile :: ChatResponse -> Bool

src/Simplex/Chat/View.hs

@@ -246,6 +246,7 @@ responseToView user_ ChatConfig {logLevel, testView} liveItems ts tz = \case
   CRMessageError u prefix err -> ttyUser u [plain prefix <> ": " <> plain err | prefix == "error" || logLevel <= CLLWarning]
   CRChatCmdError u e -> ttyUserPrefix' u $ viewChatError logLevel e
   CRChatError u e -> ttyUser' u $ viewChatError logLevel e
+  CRTimedAction _ _ -> []
   where
     ttyUser :: User -> [StyledString] -> [StyledString]
     ttyUser user@User {showNtfs, activeUser} ss