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/Attach.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Attach.hs') diff --git a/src/Attach.hs b/src/Attach.hs index 055c7fe..adb9d2f 100644 --- a/src/Attach.hs +++ b/src/Attach.hs @@ -71,14 +71,13 @@ instance PairingResult AttachIdentity where svcPrint $ "Failed to verify new identity" throwError "Failed to verify new identity" -attachToOwner :: (MonadIO m, MonadError String m) => (String -> IO ()) -> UnifiedIdentity -> Peer -> m () +attachToOwner :: (MonadIO m, MonadError String m) => (String -> IO ()) -> Peer -> m () attachToOwner _ = pairingRequest @AttachIdentity Proxy attachAccept :: (MonadIO m, MonadError String m) => (String -> IO ()) -> Head LocalState -> Peer -> m () attachAccept printMsg h peer = do let st = refStorage $ headRef h - 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