Files
gitea-repo-config/Gitea.InMemory/Server.fs
Patrick Stevens 3a975d7f28 Add tests (#60)
2023-08-06 21:23:21 +01:00

19 lines
661 B
Forth

namespace Gitea.InMemory
open Gitea.Declarative
[<RequireQualifiedAccess>]
module Operations =
let createdUser (createUserOption : Gitea.CreateUserOption) : Gitea.User =
let result = Gitea.User ()
result.Email <- createUserOption.Email
result.Restricted <- createUserOption.Restricted
// TODO: what is this username used for anyway
// result.LoginName <- createUserOption.Username
result.Visibility <- createUserOption.Visibility
result.Created <- createUserOption.CreatedAt
result.FullName <- createUserOption.FullName
result.LoginName <- createUserOption.LoginName
result