diff options
| -rw-r--r-- | package.yaml | 1 | ||||
| -rw-r--r-- | src/Tomato/Post.hs | 5 | ||||
| -rw-r--r-- | stack.yaml | 3 | ||||
| -rw-r--r-- | 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 @@ -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 |