From 36b9a1ddbddf1477c61809d340cd0b86360a7a83 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 20 Dec 2020 21:47:22 +0100
Subject: Network: STM-based synchronization rewrite

---
 src/Attach.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Attach.hs')

diff --git a/src/Attach.hs b/src/Attach.hs
index 5acc608..4df7e5f 100644
--- a/src/Attach.hs
+++ b/src/Attach.hs
@@ -97,7 +97,7 @@ attachAccept printMsg h peer = do
         PeerRequestConfirm -> do
             liftIO $ printMsg $ "Accepted new attached device, seding updated identity"
             owner <- liftIO $ mergeSharedIdentity h
-            PeerIdentityFull pid <- return $ peerIdentity peer
+            PeerIdentityFull pid <- peerIdentity peer
             Just secret <- liftIO $ loadKey $ idKeyIdentity owner
             liftIO $ do
                 identity <- wrappedStore st =<< sign secret =<< wrappedStore st (emptyIdentityData $ idKeyIdentity pid)
-- 
cgit v1.2.3