blade/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2024-12-17 17:20:21 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

refactor names

Browse Source
This commit is contained in:
Diogo
2024-10-30 16:08:40 +00:00
parent 2b7ad80dfd
commit 22be251862
2 changed files with 30 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Controller.hs
+5 -5
View File
@@ -572,7 +572,7 @@ data ChatResponse
| CRChatSuspended
| CRApiChats {user :: User, chats :: [AChat]}
| CRChats {chats :: [AChat]}
| CRApiChat {user :: User, chat :: AChat, section :: ChatSection}
| CRApiChat {user :: User, chat :: AChat, section :: ChatLandingSection}
| CRChatItems {user :: User, chatName_ :: Maybe ChatName, chatItems :: [AChatItem]}
| CRChatItemInfo {user :: User, chatItem :: AChatItem, chatItemInfo :: ChatItemInfo}
| CRChatItemId User (Maybe ChatItemId)
@@ -843,9 +843,9 @@ data ChatPagination
| CPInitial Int
deriving (Show)
data ChatSection
= CSBottom
| CSUnread
data ChatLandingSection
= CLSLatest
| CLSUnread
deriving (Show)
data PaginationByTime
@@ -1598,7 +1598,7 @@ $(JQ.deriveJSON (sumTypeJSON $ dropPrefix "RCSR") ''RemoteCtrlStopReason)
$(JQ.deriveJSON (sumTypeJSON $ dropPrefix "RHSR") ''RemoteHostStopReason)
$(JQ.deriveJSON defaultJSON ''ChatSection)
$(JQ.deriveJSON (sumTypeJSON $ dropPrefix "CLS") ''ChatLandingSection)
$(JQ.deriveJSON (sumTypeJSON $ dropPrefix "CR") ''ChatResponse)