Cater for Zenodo searches being more unreliable

Author: thewilkybarkid

.env.dist

@@ -1,3 +1,4 @@
 ORCID_URL=https://api.sandbox.orcid.org
 REDIS_URL=redis://localhost:6379
 ZENODO_URL=https://sandbox.zenodo.org
+ZENODO_API_KEY=zenodo-api-key

src/Config.ts

@@ -20,6 +20,7 @@ const redisConfig: Config.Config<RedisConfig> = Config.nested(
 const zenodoConfig: Config.Config<Omit<ZenodoConfig, 'rateLimit'>> = Config.nested(
   Config.all({
     url: Config.mapAttempt(Config.string('URL'), url => new URL(url)),
+    apiKey: Config.secret('API_KEY'),
   }),
   'ZENODO',
 )

src/Zenodo.ts

@@ -1,6 +1,6 @@
 import { HttpClient } from '@effect/platform'
 import { type ParseResult, Schema } from '@effect/schema'
-import { Context, Effect, type RateLimiter, type Record } from 'effect'
+import { Context, Effect, type RateLimiter, type Record, Secret } from 'effect'
 import { DoiSchema } from './Doi.js'
 import type * as OrcidId from './OrcidId.js'
 import * as Temporal from './Temporal.js'
@@ -12,6 +12,7 @@ type GetRecordsForOrcidIdError = HttpClient.error.HttpClientError | ParseResult.
 
 export interface ZenodoConfig {
   readonly url: URL
+  readonly apiKey: Secret.Secret
   readonly rateLimit: RateLimiter.RateLimiter
 }
 
@@ -79,6 +80,7 @@ const zenodoClient = Effect.gen(function* (_) {
     HttpClient.client.filterStatusOk,
     HttpClient.client.mapRequest(HttpClient.request.acceptJson),
     HttpClient.client.mapRequest(HttpClient.request.prependUrl(new URL('/api/', config.url).href)),
+    HttpClient.client.mapRequest(HttpClient.request.bearerToken(Secret.value(config.apiKey))),
     HttpClient.client.transform(config.rateLimit),
   )
 })