corpus

commit 1dbde20e2804fa04fe80d9b467d10c06e14fb5b2
parent 7c7ce5fc300f2475a4e8ba8ada0848fca89454d1
Author: mtmn <miro@haravara.org>
Date:   Tue, 21 Apr 2026 16:49:19 +0200

feat: update user agents with github repo

Diffstat:
M
src/Main.purs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Main.purs b/src/Main.purs
@@ -488,7 +488,7 @@ fetchDiscogsCoverUrl cfg artist release = case cfg.discogsToken of
         <> (fromMaybe "" $ encodeURIComponent queryStr)
         <> "&type=release&per_page=1"
     Log.info $ "Searching Discogs for: " <> queryStr
-    result <- try $ fetch searchUrl { method: GET, headers: { "User-Agent": "ScrobblerPureScript/1.0", "Authorization": "Discogs token=" <> t } }
+    result <- try $ fetch searchUrl { method: GET, headers: { "User-Agent": "corpus/1.0 +https://github.com/mtmn/corpus", "Authorization": "Discogs token=" <> t } }
     case result of
       Right fr | fr.status == 200 -> do
         json <- fromJson fr.json
@@ -875,7 +875,7 @@ fetchDiscogsGenre (Just t) artist release = do
   let queryStr = artist <> " " <> release
   let searchUrl = "https://api.discogs.com/database/search?q=" <> (fromMaybe "" $ encodeURIComponent queryStr) <> "&type=release&per_page=1"
   Log.info $ "Fetching Discogs genre for: " <> queryStr
-  result <- try $ fetch searchUrl { method: GET, headers: { "User-Agent": "ScrobblerPureScript/1.0", "Authorization": "Discogs token=" <> t } }
+  result <- try $ fetch searchUrl { method: GET, headers: { "User-Agent": "corpus/1.0 +https://github.com/mtmn/corpus", "Authorization": "Discogs token=" <> t } }
   case result of
     Right fetchRes | fetchRes.status == 200 -> do
       jsonResult <- try $ fromJson fetchRes.json