From 709a4a3698cb7cf280dbcc63acf2824d88d1a8c6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 6 Dec 2021 22:25:46 +0100
Subject: Storage: head watch with selector and unwatch function

---
 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 1edc70c..26f1db3 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -293,7 +293,7 @@ startServer opt origHead logd' services = do
                             sendToPeerS peer packet
                         _  -> return ()
 
-            watchHead origHead $ \h -> do
+            void $ watchHead origHead $ \h -> do
                 let idt = headLocalIdentity h
                 changedId <- modifyMVar midentity $ \cur ->
                     return (idt, cur /= idt)
-- 
cgit v1.2.3