mirror of
https://github.com/Smaug123/gitea-repo-config
synced 2025-10-05 15:38:41 +00:00
16 lines
389 B
Forth
16 lines
389 B
Forth
namespace Gitea.Declarative
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal UserInput =
|
|
|
|
let rec getDefaultNo (getUserInput : string -> string) (message : string) : bool =
|
|
let answer = getUserInput $"{message} (y/N): "
|
|
|
|
match answer with
|
|
| "y"
|
|
| "Y" -> true
|
|
| "n"
|
|
| "N"
|
|
| "" -> false
|
|
| _ -> getDefaultNo getUserInput message
|