Updated to lts-11.9

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

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

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.