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