Sandbox::https://github.com/plotly/Plotly.NET/blob/dev/build/MessagePrompts.fs

Repository navigation

module MessagePrompts

let prompt (msg: string) =

System.Console.Write(msg)

System.Console.ReadLine().Trim()

|> function

| "" -> None

| s -> Some s

|> Option.map (fun s -> s.Replace("\"", "\\\""))

let rec promptYesNo msg =

match prompt (sprintf "%s [Yn]: " msg) with

| Some "Y"

| Some "y" -> true

| Some "N"

| Some "n" -> false

| _ ->

System.Console.WriteLine("Sorry, invalid answer")

promptYesNo msg

let releaseMsg =

"""This will stage all uncommitted changes, push them to the origin and bump the release version to the latest number in the RELEASE_NOTES.md file.

Do you want to continue?"""

let releaseDocsMsg =

"""This will push the docs to gh-pages. Remember building the docs prior to this. Do you want to continue?"""