From 5911078e6826dc7bf27abbf432240c6c1d701a91 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sun, 29 May 2022 17:30:44 -0500
Subject: Further improve error messages

---
 src/Tomato/Post.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Tomato/Post.hs')

diff --git a/src/Tomato/Post.hs b/src/Tomato/Post.hs
index c97860a..5f5d8af 100644
--- a/src/Tomato/Post.hs
+++ b/src/Tomato/Post.hs
@@ -50,7 +50,7 @@ uploadTomato = do
         header "Content-Type" "image/png"
     gmURL <- case Ae.fromJSON (responseBody js) of
         Ae.Success r -> pure r
-        Ae.Error s -> throwM $ DecodeException $ T.pack s
+        Ae.Error s -> throwM $ DecodeException $ "Get groupme url:" <> T.pack s
     return gmURL
 
 -- | Post a message to the group with image as attachment
-- 
cgit v1.2.3