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