From e9760baab9608419565e253cae101b24f87eb8e5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 27 Dec 2021 22:46:21 +0100 Subject: Pairing: refactor common logic into the base module --- src/Main.hs | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 1515648..3045f94 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -294,14 +294,11 @@ cmdUpdateIdentity = void $ do cmdAttach :: Command cmdAttach = join $ attachToOwner - <$> asks ciPrint - <*> (maybe (throwError "no peer selected") return =<< gets csPeer) + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) cmdAttachAccept :: Command cmdAttachAccept = join $ attachAccept - <$> asks ciPrint - <*> asks ciHead - <*> (maybe (throwError "no peer selected") return =<< gets csPeer) + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) cmdContacts :: Command cmdContacts = do @@ -315,14 +312,11 @@ cmdContacts = do cmdContactAdd :: Command cmdContactAdd = join $ contactRequest - <$> asks ciPrint - <*> (maybe (throwError "no peer selected") return =<< gets csPeer) + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) cmdContactAccept :: Command cmdContactAccept = join $ contactAccept - <$> asks ciPrint - <*> asks ciHead - <*> (maybe (throwError "no peer selected") return =<< gets csPeer) + <$> (maybe (throwError "no peer selected") return =<< gets csPeer) cmdDiscoveryInit :: Command cmdDiscoveryInit = void $ do -- cgit v1.2.3