From c0bacd92e4c9aaa613ea1060df87804a67b8f670 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Mon, 25 Jan 2021 20:44:39 +0000
Subject: [PATCH] revert to using forkIO in the tests

---
 tests/SMPAgentClient.hs | 2 +-
 tests/SMPClient.hs      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/SMPAgentClient.hs b/tests/SMPAgentClient.hs
index ee67ef8f9..55e070230 100644
--- a/tests/SMPAgentClient.hs
+++ b/tests/SMPAgentClient.hs
@@ -123,7 +123,7 @@ cfg =
 withSmpAgentThreadOn :: (MonadUnliftIO m, MonadRandom m) => (ServiceName, String) -> (ThreadId -> m a) -> m a
 withSmpAgentThreadOn (port', db') =
   E.bracket
-    (forkIOWithUnmask ($ runSMPAgent cfg {tcpPort = port', dbFile = db'}))
+    (forkIO $ runSMPAgent cfg {tcpPort = port', dbFile = db'})
     (liftIO . killThread >=> const (removeFile db'))
 
 withSmpAgentOn :: (MonadUnliftIO m, MonadRandom m) => (ServiceName, String) -> m a -> m a
diff --git a/tests/SMPClient.hs b/tests/SMPClient.hs
index 6ca87db6d..cf30497ed 100644
--- a/tests/SMPClient.hs
+++ b/tests/SMPClient.hs
@@ -43,7 +43,7 @@ cfg =
 withSmpServerThreadOn :: (MonadUnliftIO m, MonadRandom m) => ServiceName -> (ThreadId -> m a) -> m a
 withSmpServerThreadOn port =
   E.bracket
-    (forkIOWithUnmask ($ runSMPServer cfg {tcpPort = port}))
+    (forkIO $ runSMPServer cfg {tcpPort = port})
     (liftIO . killThread)
 
 withSmpServerOn :: (MonadUnliftIO m, MonadRandom m) => ServiceName -> m a -> m a