publish.fsx

#r "nuget: dotenv.net"

open System
open dotenv.net
open System.Diagnostics
open System

DotEnv.Load(DotEnvOptions(envFilePaths = [ ".env.local" ]))

let run (command: string) (arguments: string) =
  printfn "> %s %s" command arguments

  let startInfo =
    ProcessStartInfo(
      command,
      arguments,
      RedirectStandardOutput = true,
      RedirectStandardError = true,
      UseShellExecute = false,
      CreateNoWindow = true
    )

  use p = new Process()
  p.StartInfo <- startInfo

  p.Start() |> ignore

  let output = p.StandardOutput.ReadToEnd()
  let error = p.StandardError.ReadToEnd()

  p.WaitForExit()

  let exitCode = p.ExitCode

  if exitCode = 0 then
    ()
  // printfn "Command executed successfully."
  else
    eprintfn "Command failed with exit code %d" exitCode

  // Output the command output and error (if any)
  if not (String.IsNullOrEmpty output) then
    printfn "%s" output

  if not (String.IsNullOrEmpty error) then
    eprintfn "%s" error

  exitCode

let apiKey = Environment.GetEnvironmentVariable("nuget-api-key")

if String.IsNullOrEmpty apiKey then
  eprintf "no api key found. Create a file '.env.local' with content 'nuget-api-key=<your api key>'"

  exit -1

let publishfile file =
  let _ =
    run "dotnet" $"nuget push {file} --source https://api.nuget.org/v3/index.json --api-key {apiKey}"

  ()

let deleteFolder folder =
  fun () ->
    if System.IO.Directory.Exists folder then
      System.IO.Directory.Delete(folder, true)

let restore () = run "dotnet" "restore" |> ignore

let pack (path: string) =
  fun () -> if run "dotnet" $"pack {path}" = 0 then () else exit -1

let publish folderPath pattern =
  fun () ->
    let files = System.IO.Directory.EnumerateFiles(folderPath, pattern)

    printfn "%A" files

    files |> Seq.iter publishfile

    ()

let execute =
  (deleteFolder ".\\src\\TinyEventStore\\bin")
  >> (deleteFolder ".\\src\\TinyEventStore.ef\\bin")
  >> restore
  >> pack ".\\src\\TinyEventStore\\TinyEventStore.fsproj"
  >> pack ".\\src\\TinyEventStore.Ef\\TinyEventStore.Ef.fsproj"
  >> publish ".\\src\\TinyEventStore\\bin\\Release" "TinyEventStore.*.nupkg"
  >> publish ".\\src\\TinyEventStore.Ef\\bin\\Release" "TinyEventStore.*.nupkg"


execute ()