From a6b07d2758c185cde10a0b07161c18c288c02cfc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 28 Dec 2021 22:46:43 +0100 Subject: Pairing: reject and restart --- src/Main.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 3045f94..2c56a00 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -230,9 +230,11 @@ commands = , ("update-identity", cmdUpdateIdentity) , ("attach", cmdAttach) , ("attach-accept", cmdAttachAccept) + , ("attach-reject", cmdAttachReject) , ("contacts", cmdContacts) , ("contact-add", cmdContactAdd) , ("contact-accept", cmdContactAccept) + , ("contact-reject", cmdContactReject) , ("discovery-init", cmdDiscoveryInit) , ("discovery", cmdDiscovery) , ("ice-create", cmdIceCreate) @@ -300,6 +302,10 @@ cmdAttachAccept :: Command cmdAttachAccept = join $ attachAccept <$> (maybe (throwError "no peer selected") return =<< gets csPeer) +cmdAttachReject :: Command +cmdAttachReject = join $ attachReject + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) + cmdContacts :: Command cmdContacts = do args <- words <$> asks ciLine @@ -318,6 +324,10 @@ cmdContactAccept :: Command cmdContactAccept = join $ contactAccept <$> (maybe (throwError "no peer selected") return =<< gets csPeer) +cmdContactReject :: Command +cmdContactReject = join $ contactReject + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) + cmdDiscoveryInit :: Command cmdDiscoveryInit = void $ do server <- asks ciServer -- cgit v1.2.3