diff options
Diffstat (limited to 'src/SomhairlesDream.Server/ArtifactRunApi.fs')
| -rw-r--r-- | src/SomhairlesDream.Server/ArtifactRunApi.fs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/SomhairlesDream.Server/ArtifactRunApi.fs b/src/SomhairlesDream.Server/ArtifactRunApi.fs index 8d76ffc..8f63b99 100644 --- a/src/SomhairlesDream.Server/ArtifactRunApi.fs +++ b/src/SomhairlesDream.Server/ArtifactRunApi.fs @@ -115,6 +115,19 @@ module ArtifactRunApi = | Error ArtifactNotFound -> error options 404 "artifact not found" | Error(InvalidManifest message) -> error options 500 message + let private stepArtifact options (context: HttpContext) = + match selector context, queryValue context "path" with + | Error message, _ -> error options 400 message + | _, None -> error options 400 "missing query parameter 'path'" + | Ok(projectId, runId), Some relativePath -> + match options.Coordinator.StepArtifact(projectId, runId, relativePath) with + | Ok path -> Results.File(path, artifactContentType path) + | Error RunNotFound -> error options 404 "run not found" + | Error(RunNotComplete snapshot) -> jsonWithStatus options 409 snapshot + | Error(InvalidArtifactPath message) -> error options 400 message + | Error ArtifactNotFound -> error options 404 "artifact not found" + | Error(InvalidManifest message) -> error options 500 message + let private writeError options (context: HttpContext) statusCode message = task { context.Response.StatusCode <- statusCode @@ -159,3 +172,6 @@ module ArtifactRunApi = app.MapGet("/api/artifacts/file", Func<HttpContext, IResult>(fun context -> artifact options context)) |> ignore + + app.MapGet("/api/artifacts/steps", Func<HttpContext, IResult>(fun context -> stepArtifact options context)) + |> ignore |