From e970f53fdea63d9dd89382d522db2da570d05128 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sun, 29 May 2022 17:00:25 -0500
Subject: Use GHC 8.10

---
 package.yaml       | 1 +
 src/Tomato/Post.hs | 5 +++--
 stack.yaml         | 3 +--
 stack.yaml.lock    | 9 ++++-----
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/package.yaml b/package.yaml
index bfe8700..8f09e4d 100644
--- a/package.yaml
+++ b/package.yaml
@@ -30,6 +30,7 @@ dependencies:
 - http-types
 - bytestring
 - unliftio
+- unordered-containers
 - conduit
 - conduit-extra
 
diff --git a/src/Tomato/Post.hs b/src/Tomato/Post.hs
index 4adcdbb..c97860a 100644
--- a/src/Tomato/Post.hs
+++ b/src/Tomato/Post.hs
@@ -23,12 +23,13 @@ import Network.HTTP.Req
     , responseBody
     )
 
+import Data.HashMap.Strict (insert)
+
 import Tomato.Data.Except (DecodeException (..))
 import Tomato.Data.Message (GMIUrl (..), OutMessage (..))
 import Tomato.App (App (..))
 
 import qualified Data.Aeson as Ae
-import qualified Data.Aeson.KeyMap as Ae
 import qualified RIO.Text as T
 
 
@@ -59,7 +60,7 @@ postMessage outMes = do
     accessToken <- asks appToken
     let url = https "api.groupme.com" /: "v3" /: "bots" /: "post"
         outMes' = case Ae.toJSON outMes of
-            Ae.Object o -> Ae.Object $ Ae.insert "bot_id" (Ae.toJSON botId) o
+            Ae.Object o -> Ae.Object $ insert "bot_id" (Ae.toJSON botId) o
             _           -> error "exceptional"
     rr $ req POST url (ReqBodyJson outMes') ignoreResponse $
         header "X-Access-Token" accessToken
diff --git a/stack.yaml b/stack.yaml
index 0214217..29293f3 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -17,8 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver:
-  url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/8.yaml
+resolver: lts-18.28
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.
diff --git a/stack.yaml.lock b/stack.yaml.lock
index ecc702e..7af0442 100644
--- a/stack.yaml.lock
+++ b/stack.yaml.lock
@@ -6,8 +6,7 @@
 packages: []
 snapshots:
 - completed:
-    size: 618506
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/8.yaml
-    sha256: f1c4aca9b9b81afbb9db55571acb0690cdc01ac97a178234de281f9dc075e95e
-  original:
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/8.yaml
+    size: 590100
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/18/28.yaml
+    sha256: 428ec8d5ce932190d3cbe266b9eb3c175cd81e984babf876b64019e2cbe4ea68
+  original: lts-18.28
-- 
cgit v1.2.3