From 7a9ef992afa96ed177ae9a4a67d302017ab73852 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 5 Apr 2023 22:03:43 +0200
Subject: Fix non-exhaustive pattern match warnings

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

(limited to 'src/Network.hs')

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
-- 
cgit v1.2.3