IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

show confirmation when invitation accepted or contact request sent (#150)

Browse Source 
* show confirmation when invitation accepted or contact request sent

* refactor
This commit is contained in:
Evgeny Poberezkin
2021-12-11 12:57:12 +00:00
committed by GitHub
parent 1c2e49ae83
commit 7fa671f829
3 changed files with 20 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Simplex/Chat/View.hs
View File

@@ -8,6 +8,8 @@
module Simplex.Chat.View
( printToView,
showInvitation,
showSentConfirmation,
showSentInvitation,
showChatError,
showContactDeleted,
showContactGroups,
@@ -82,7 +84,7 @@ import Data.ByteString.Char8 (ByteString)
import Data.Composition ((.:), (.:.))
import Data.Function (on)
import Data.Int (Int64)
import Data.List (groupBy, intersperse, sortOn, sort)
import Data.List (groupBy, intersperse, sort, sortOn)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time.Clock (DiffTime, UTCTime)
@@ -105,6 +107,12 @@ type ChatReader m = (MonadUnliftIO m, MonadReader ChatController m)
showInvitation :: ChatReader m => ConnReqInvitation -> m ()
showInvitation = printToView . connReqInvitation_
showSentConfirmation :: ChatReader m => m ()
showSentConfirmation = printToView ["confirmation sent!"]
showSentInvitation :: ChatReader m => m ()
showSentInvitation = printToView ["connection request sent!"]
showChatError :: ChatReader m => ChatError -> m ()
showChatError = printToView . chatError