diff options
Diffstat (limited to 'src/Attach.hs')
| -rw-r--r-- | src/Attach.hs | 5 |
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 |