From 392447ea331988f40725580c44b646384d506486 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Fri, 13 Oct 2023 17:52:27 +0100
Subject: [PATCH] core: fix test

---
 src/Simplex/Chat/Remote.hs | 2 ++
 tests/JSONTests.hs         | 2 +-
 tests/RemoteTests.hs       | 1 -
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Remote.hs b/src/Simplex/Chat/Remote.hs
index 96d15ee8ae..49357763d2 100644
--- a/src/Simplex/Chat/Remote.hs
+++ b/src/Simplex/Chat/Remote.hs
@@ -8,6 +8,8 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TupleSections #-}
 
+{-# OPTIONS_GHC -fno-warn-ambiguous-fields #-}
+
 module Simplex.Chat.Remote where
 
 import Control.Logger.Simple
diff --git a/tests/JSONTests.hs b/tests/JSONTests.hs
index 11567d94af..a250cdfcf6 100644
--- a/tests/JSONTests.hs
+++ b/tests/JSONTests.hs
@@ -26,7 +26,7 @@ owsf2TaggedJSONTest = do
   activeUserExistsSwift `to` activeUserExistsTagged
   activeUserSwift `to` activeUserTagged
   chatStartedSwift `to` chatStartedTagged
-  contactSubSummarySwift `to` contactSubSummaryTagged
+  networkStatusesSwift `to` networkStatusesTagged
   memberSubSummarySwift `to` memberSubSummaryTagged
   userContactSubSummarySwift `to` userContactSubSummaryTagged
   pendingSubSummarySwift `to` pendingSubSummaryTagged
diff --git a/tests/RemoteTests.hs b/tests/RemoteTests.hs
index 84f361a4a4..d2392adbbd 100644
--- a/tests/RemoteTests.hs
+++ b/tests/RemoteTests.hs
@@ -30,7 +30,6 @@ import Simplex.Messaging.Transport.HTTP2.Server (HTTP2Request (..))
 import System.FilePath (makeRelative, (</>))
 import Test.Hspec
 import UnliftIO
-import UnliftIO.Concurrent (threadDelay)
 import UnliftIO.Directory
 
 remoteTests :: SpecWith FilePath