diff options
Diffstat (limited to 'src/Network.hs')
| -rw-r--r-- | src/Network.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network.hs b/src/Network.hs index 3cf714d..be6fa09 100644 --- a/src/Network.hs +++ b/src/Network.hs @@ -757,7 +757,7 @@ handleIdentityAnnounce self peer ref = liftIO $ atomically $ do PeerIdentityRef wref wact | wrDigest wref == refDigest ref -> validateAndUpdate [] $ \pid -> do - mapM_ (writeTQueue (serverIOActions $ peerServer peer) . ($pid)) . + mapM_ (writeTQueue (serverIOActions $ peerServer peer) . ($ pid)) . reverse =<< readTVar wact PeerIdentityFull pid |