Browse Source

QuoteSourceServer: make imports explicit

master
Denis Tereshkin 4 years ago
parent
commit
582be4dc0f
  1. 37
      src/ATrade/QuoteSource/Server.hs

37
src/ATrade/QuoteSource/Server.hs

@ -5,26 +5,37 @@ module ATrade.QuoteSource.Server (
QuoteSourceServerData(..) QuoteSourceServerData(..)
) where ) where
import ATrade.Types import ATrade.Types (Bar, BarTimeframe, ServerSecurityParams (sspCertificate, sspDomain),
import Control.Concurrent hiding (readChan, writeChan) Tick (security), serializeBar,
import Control.Concurrent.BoundedChan serializeTickBody)
import Control.Exception import Control.Concurrent (MVar, ThreadId, forkIO,
import Control.Monad killThread, myThreadId,
newEmptyMVar, putMVar,
readMVar, threadDelay)
import Control.Concurrent.BoundedChan (BoundedChan, readChan,
tryReadChan, writeChan)
import Control.Exception (finally)
import Control.Monad (Monad (return, (>>)), forever,
mapM_, unless, when)
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as B8 import qualified Data.ByteString.Char8 as B8
import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Lazy as BL
import Data.Foldable import Data.Foldable (Foldable (elem, foldl'))
import qualified Data.List as L import qualified Data.List as L
import Data.List.NonEmpty hiding (map) import Data.List.NonEmpty (fromList)
import Data.Maybe import Data.Maybe (Maybe (Just, Nothing))
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as E import qualified Data.Text.Encoding as E
import Prelude hiding ((!!)) import Prelude hiding ((!!))
import System.Log.Logger import System.Log.Logger (debugM)
import System.ZMQ4 import System.ZMQ4 (Context, Pub (..), Socket,
import System.ZMQ4.ZAP bind, close, restrict, send,
sendMulti, setCurveServer,
import Safe setLinger, setZapDomain,
socket)
import System.ZMQ4.ZAP (zapApplyCertificate)
import Safe (headMay)
data QuoteSourceServer = QuoteSourceServerState { data QuoteSourceServer = QuoteSourceServerState {
ctx :: Context, ctx :: Context,

Loading…
Cancel
Save