21 lines
593 B
FSharp
21 lines
593 B
FSharp
open System
|
|
open System.IO
|
|
|
|
[ "source/archive"
|
|
"source/repository"
|
|
"source/tmp"
|
|
"toolchain"
|
|
"toolchain/tmp"
|
|
"state/cache-tmp"
|
|
"output/go-cache"
|
|
"output/bin"
|
|
"output/layout"
|
|
"output/result"
|
|
"output/tmp"
|
|
"output/publish-tmp"
|
|
"output/cache-tmp" ]
|
|
|> List.iter (fun path -> Directory.CreateDirectory(Path.Combine("/workspace", path)) |> ignore)
|
|
|
|
match Environment.GetEnvironmentVariable "POD_NAME" with
|
|
| value when String.IsNullOrWhiteSpace value -> invalidOp "pod name is unavailable"
|
|
| value -> File.WriteAllText("/workspace/.claim-name", $"{value}-workflow-workspace")
|