Remove unnecessary self identity parameters

1 files changed, 2 insertions, 3 deletions

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