From c1fff94d244d6754a0976d0385d4333249fc5ca6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 16 Dec 2021 21:30:06 +0100 Subject: Remove unnecessary self identity parameters --- src/Contact.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Contact.hs') diff --git a/src/Contact.hs b/src/Contact.hs index 5c4e265..01bd49d 100644 --- a/src/Contact.hs +++ b/src/Contact.hs @@ -108,13 +108,12 @@ instance PairingResult ContactAccepted where pairingHookAccept ContactAccepted = return () -contactRequest :: (MonadIO m, MonadError String m) => (String -> IO ()) -> UnifiedIdentity -> Peer -> m () +contactRequest :: (MonadIO m, MonadError String m) => (String -> IO ()) -> Peer -> m () contactRequest _ = pairingRequest @ContactAccepted Proxy contactAccept :: (MonadIO m, MonadError String m) => (String -> IO ()) -> Head LocalState -> Peer -> m () contactAccept printMsg h peer = do - let self = headLocalIdentity h - sendToPeerWith self peer $ \case + sendToPeerWith peer $ \case NoPairing -> throwError $ "none in progress" OurRequest {} -> throwError $ "waiting for peer" OurRequestConfirm Nothing -> do -- cgit v1.2.3