diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2021-12-16 21:30:06 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-12-16 21:30:06 +0100 |
| commit | c1fff94d244d6754a0976d0385d4333249fc5ca6 (patch) | |
| tree | 2be7e32d674e2ca87660ad03d281772ad9cbd87a /src/Contact.hs | |
| parent | 9e07f08c019a4951fff0a969ca3fb88c8a0d9569 (diff) | |
Remove unnecessary self identity parameters
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 |