@@ -379,10 +379,7 @@ let pushNuGet (_ : HaveTested) (_ : HavePacked) =
379
379
let nugetKey =
380
380
match Environment.GetEnvironmentVariable " NUGET_KEY" with
381
381
| null ->
382
- match Environment.GetEnvironmentVariable " NUGETKEY" with
383
- | null ->
384
382
failwith " No NuGet key in environment for NuGet publish. Set NUGET_KEY."
385
- | s -> s
386
383
| s -> s
387
384
388
385
let env =
@@ -554,11 +551,11 @@ type GitHubReleaseRequest =
554
551
IsPreRelease : bool
555
552
}
556
553
557
- let release ( _ : HaveTested ) ( _ : HaveGeneratedDocs ) =
554
+ let gitHubRelease ( _ : HaveTested ) =
558
555
Console.WriteLine " Tagging new version and performing GitHub release... "
559
556
560
557
let pat =
561
- match Environment.GetEnvironmentVariable " github-pat " with
558
+ match Environment.GetEnvironmentVariable " GITHUB_PAT " with
562
559
| null ->
563
560
[
564
561
" Obtain a GitHub personal access token from https://github.com/settings/tokens?type=beta ."
@@ -671,13 +668,12 @@ match args |> List.map (fun s -> s.ToLowerInvariant ()) with
671
668
let haveTested = runDotnetTest haveCleaned
672
669
let haveGeneratedDocs = docs haveBuilt
673
670
runCi haveGeneratedDocs haveTested
674
- | [ " -t" ; " release " ] ->
671
+ | [ " -t" ; " ghrelease " ] ->
675
672
let haveCleaned = doClean ()
676
673
let haveGeneratedAssemblyInfo = generateAssemblyInfo haveCleaned
677
674
let haveBuilt = build haveCleaned haveGeneratedAssemblyInfo
678
675
let haveTested = runDotnetTest haveCleaned
679
- let haveGeneratedDocs = docs haveBuilt
680
- release haveTested haveGeneratedDocs
676
+ gitHubRelease haveTested
681
677
| [ " -t" ; " build" ] ->
682
678
let haveCleaned = doClean ()
683
679
let haveGeneratedAssemblyInfo = generateAssemblyInfo haveCleaned
@@ -718,4 +714,4 @@ match args |> List.map (fun s -> s.ToLowerInvariant ()) with
718
714
let args =
719
715
args
720
716
|> String.concat " "
721
- failwith $" Unrecognised arguments. Supply '-t [RunTests,Clean,CI,Build,Tests,Release ,Docs,WatchDocs,ReleaseDocs,NugetPack,NugetPush,BuildVersion,AssemblyInfo]'. Unrecognised args were: %s {args}"
717
+ failwith $" Unrecognised arguments. Supply '-t [RunTests,Clean,CI,Build,Tests,GHRelease ,Docs,WatchDocs,ReleaseDocs,NugetPack,NugetPush,BuildVersion,AssemblyInfo]'. Unrecognised args were: %s {args}"
0 commit comments