core: fix test

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

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

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