Further improve error messages

3 files changed, 3 insertions, 3 deletions

diff --git a/app/Main.hs b/app/Main.hs
index b62e614..f4fa1d0 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -32,7 +32,7 @@ runServer port = run port $ \request send -> do
           .| sinkParser Ae.json
       case Ae.fromJSON val of
           Ae.Success r -> return r
-          Ae.Error s -> throwM $ DecodeException $ T.pack s
+          Ae.Error s -> throwM $ DecodeException $ "Recieve message: " <> T.pack s
     case eres of
       Left e -> send $ errorResponse e
       Right inMes -> do
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
diff --git a/src/Tomato/Retrieve.hs b/src/Tomato/Retrieve.hs
index 2f7f20b..014d836 100644
--- a/src/Tomato/Retrieve.hs
+++ b/src/Tomato/Retrieve.hs
@@ -44,7 +44,7 @@ queryTomato = do
         "client_id" =: clientId
     tomato <- 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 tomato url" <> T.pack s
     return tomato
 
 -- | Download a specific tomato