diff --git a/hydra-node/src/Hydra/API/WSServer.hs b/hydra-node/src/Hydra/API/WSServer.hs index 5af08a26d8e..4bf57751d1a 100644 --- a/hydra-node/src/Hydra/API/WSServer.hs +++ b/hydra-node/src/Hydra/API/WSServer.hs @@ -3,11 +3,11 @@ module Hydra.API.WSServer where -import Hydra.Prelude hiding (TVar, readTVar, seq) +import Hydra.Prelude hiding (TVar, seq) import Control.Concurrent.STM (TChan, dupTChan, readTChan) import Control.Concurrent.STM qualified as STM -import Control.Concurrent.STM.TVar (TVar, readTVar) +import Control.Concurrent.STM.TVar (TVar) import Data.Aeson qualified as Aeson import Data.Version (showVersion) import Hydra.API.APIServerLog (APIServerLog (..)) @@ -42,7 +42,6 @@ import Network.WebSockets ( acceptRequest, receiveData, sendTextData, - sendTextDatas, withPingThread, ) import Text.URI hiding (ParseException) @@ -80,6 +79,7 @@ wsApp party tracer nextSeq callback headStatusP headIdP snapshotUtxoP responseCh -- forwardHistory con outConfig -- forwardGreetingOnly con + sendGreetings con withPingThread con 30 (pure ()) $ race_ (receiveInputs con) (sendOutputs chan con outConfig)