diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Tomato/Post.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |