diff options
Diffstat (limited to 'src/Contact.hs')
| -rw-r--r-- | src/Contact.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 |