From 4d8026f78b1f4d5c692e532c6e11640690889885 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sat, 5 Jun 2021 19:42:00 +0700
Subject: [PATCH] Bump to lts-17.14

---
 src/Bot.hs | 7 ++++---
 stack.yaml | 9 ++++++---
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/src/Bot.hs b/src/Bot.hs
index d043ea3..c4bd379 100644
--- a/src/Bot.hs
+++ b/src/Bot.hs
@@ -28,11 +28,12 @@ import qualified Data.Map.Strict                as M
 import           Data.Text                      (isPrefixOf, stripPrefix)
 import qualified Data.Text                      as T
 import           Data.Text.Encoding
+import qualified Data.Text.Lazy                 as TL
 import           Data.XML.Types
+import           Language.Haskell.Printf
 import           Network.Xmpp
 import           System.Log.Logger
 import           System.ZMQ4                    hiding (message)
-import           Text.Printf.TH
 
 startBot :: Config -> IO ()
 startBot conf = forever $ do
@@ -120,12 +121,12 @@ startBot conf = forever $ do
 
     showPricesMsg ref = do
       m <- readIORef ref
-      return $ foldMap (\tick -> [st|%?: %?\n|] (security tick) (value tick)) m
+      return $ foldMap (\tick -> TL.toStrict $ [t|%?: %?\n|] (security tick) (value tick)) m
 
     toXml text = [Element (Name "body" Nothing Nothing) [] [NodeContent (ContentText text)]]
 
     messageForTrade :: TradeSinkMessage -> T.Text
-    messageForTrade (TradeSinkTrade{..}) = [st|Trade: %? %? at %? (%? lots, %?/%?)|]
+    messageForTrade (TradeSinkTrade{..}) = TL.toStrict $ [t|Trade: %? %? at %? (%? lots, %?/%?)|]
       tsOperation
       tsSecurity
       tsPrice
diff --git a/stack.yaml b/stack.yaml
index c5a84b8..a9f6ad9 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -18,7 +18,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-12.9
+resolver: lts-17.14
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.
@@ -37,12 +37,15 @@ packages:
 - .
 - ../libatrade
 - ../zeromq4-haskell-zap
-- ../pontarius-xmpp
 
 # Dependency packages to be pulled from upstream that are not in the resolver
 # using the same syntax as the packages field.
 # (e.g., acme-missiles-0.3)
-extra-deps: [ "datetime-0.3.1", "stringprep-1.0.0", "th-printf-0.5.1", "text-format-0.3.2" ]
+extra-deps:
+- datetime-0.3.1
+- stringprep-1.0.0
+- th-printf-0.7
+- pontarius-xmpp-0.5.6.4
 
 # Override default flag values for local packages and extra-deps
 # flags: {}