diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 14 |
1 files changed, 4 insertions, 10 deletions
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 |