Add refresh-auth (#64)

This commit is contained in:
Patrick Stevens
2023-08-07 16:35:46 +01:00
committed by GitHub
parent 079725b8ac
commit a8f9e6a9f3
9 changed files with 215 additions and 29 deletions

View File

@@ -0,0 +1,32 @@
namespace Gitea.Declarative
open System
open System.Net.Http
open Microsoft.Extensions.Logging.Console
open Microsoft.Extensions.Options
[<RequireQualifiedAccess>]
module internal Utils =
let createLoggerProvider () =
let options =
let options = ConsoleLoggerOptions ()
{ new IOptionsMonitor<ConsoleLoggerOptions> with
member _.Get _ = options
member _.CurrentValue = options
member _.OnChange _ =
{ new IDisposable with
member _.Dispose () = ()
}
}
new ConsoleLoggerProvider (options)
let createHttpClient (host : Uri) (apiKey : string) =
let client = new HttpClient ()
client.BaseAddress <- host
client.DefaultRequestHeaders.Add ("Authorization", $"token {apiKey}")
client