diff --git a/src/ATrade/Broker/Server.hs b/src/ATrade/Broker/Server.hs index 6d2cac5..6209292 100644 --- a/src/ATrade/Broker/Server.hs +++ b/src/ATrade/Broker/Server.hs @@ -16,6 +16,7 @@ import qualified Data.Map as M import qualified Data.ByteString as B hiding (putStrLn) import qualified Data.ByteString.Lazy as BL hiding (putStrLn) import qualified Data.Text as T +import qualified Data.Text.Encoding as E import qualified Data.List as L import Data.Aeson import Data.Maybe @@ -63,7 +64,7 @@ startBrokerServer brokers c ep tradeSinks params = do sock <- socket c Router setLinger (restrict 0) sock case sspDomain params of - Just domain -> setZapDomain domain sock + Just domain -> setZapDomain (restrict $ E.encodeUtf8 domain) sock Nothing -> return () case sspCertificate params of Just cert -> do diff --git a/src/ATrade/QuoteSource/Server.hs b/src/ATrade/QuoteSource/Server.hs index 7b1340d..4a3e6ff 100644 --- a/src/ATrade/QuoteSource/Server.hs +++ b/src/ATrade/QuoteSource/Server.hs @@ -85,7 +85,7 @@ startQuoteSourceServer chan c ep socketDomainIdMb = do sock <- socket c Pub setLinger (restrict 0) sock case socketDomainIdMb of - Just socketDomainId -> setZapDomain socketDomainId sock + Just socketDomainId -> setZapDomain (restrict $ E.encodeUtf8 socketDomainId) sock _ -> return () bind sock $ T.unpack ep tid <- myThreadId diff --git a/stack.yaml b/stack.yaml index e998669..f88d557 100644 --- a/stack.yaml +++ b/stack.yaml @@ -15,7 +15,7 @@ # resolver: # name: custom-snapshot # location: "./custom-snapshot.yaml" -resolver: lts-8.18 +resolver: lts-11.9 # User packages to be built. # Various formats can be used as shown in the example below.