Make types testable (#55)

This commit is contained in:
Patrick Stevens
2023-08-05 01:00:53 +01:00
committed by GitHub
parent f247ef704d
commit 7dd7d768ae
9 changed files with 244 additions and 7 deletions

View File

@@ -19,7 +19,7 @@ module Gitea =
let checkUsers
(config : GiteaConfig)
(client : Gitea.Client)
(client : IGiteaClient)
: Async<Result<unit, Map<User, AlignmentError<UserInfo>>>>
=
async {
@@ -69,7 +69,7 @@ module Gitea =
let checkRepos
(logger : ILogger)
(config : GiteaConfig)
(client : Gitea.Client)
(client : IGiteaClient)
: Async<Result<unit, Map<User, Map<RepoName, AlignmentError<Repo>>>>>
=
async {
@@ -151,7 +151,7 @@ module Gitea =
let reconcileDifferingConfiguration
(logger : ILogger)
(client : Gitea.Client)
(client : IGiteaClient)
(githubApiToken : string option)
(user : string)
(repoName : string)
@@ -512,7 +512,7 @@ module Gitea =
let reconcileRepoErrors
(logger : ILogger)
(client : Gitea.Client)
(client : IGiteaClient)
(githubApiToken : string option)
(m : Map<User, Map<RepoName, AlignmentError<Repo>>>)
: Async<unit>
@@ -619,7 +619,7 @@ module Gitea =
let reconcileUserErrors
(log : ILogger)
(getUserInput : string -> string)
(client : Gitea.Client)
(client : IGiteaClient)
(m : Map<User, AlignmentError<UserInfo>>)
=
let userInputLock = obj ()