diff options
| -rw-r--r-- | app/Main.hs | 2 | ||||
| -rw-r--r-- | src/Tomato/Post.hs | 2 | ||||
| -rw-r--r-- | src/Tomato/Retrieve.hs | 2 |
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 |