digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-19 16:57:40 +03:00
Code Issues Projects Releases Wiki Activity

ci/cron/docs: fix file verification (#13475)

Browse Source 
There is no `versions.json` in daml-on-sql docs.

CHANGELOG_BEGIN
CHANGELOG_END
This commit is contained in:
Gary Verhaegen 2022-03-31 14:25:40 +02:00 committed by GitHub
parent a8547c8bab
commit 19714e27c6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ci/cron/src/Docs.hs
View File

@ -95,12 +95,12 @@ s3Path :: DocOptions -> FilePath -> String
s3Path DocOptions{s3Subdir} file =
"s3://docs-daml-com" </> fromMaybe "" s3Subdir </> file
-- We use a check for the versions.json file to check if the docs for a given version exist or not.
-- We use a check for a file to check if the docs for a given version exist or not.
-- This is technically slightly racy if the upload happens concurrently and we end up with a partial upload
-- but the window seems small enough to make this acceptable.
doesVersionExist :: DocOptions -> Version -> IO Bool
doesVersionExist opts version = do
r <- tryIO $ IO.withTempFile $ \file -> proc_ ["aws", "s3", "cp", s3Path opts (show version </> "versions.json"), file]
r <- tryIO $ IO.withTempFile $ \file -> proc_ ["aws", "s3", "cp", s3Path opts (show version </> fileToCheck opts), file]
pure (isRight r)
build_and_push :: DocOptions -> FilePath -> [Version] -> IO ()
@ -204,6 +204,7 @@ data DocOptions = DocOptions
, includedVersion :: Version -> Bool
-- Exclusive minimum version bound for which we build docs
, build :: FilePath -> Version -> IO ()
, fileToCheck :: FilePath
}
sdkDocOpts :: DocOptions
@ -218,6 +219,7 @@ sdkDocOpts = DocOptions
shell_env_ [("DAML_SDK_RELEASE_VERSION", show version)] "bazel build //docs:docs"
proc_ ["mkdir", "-p", temp </> show version]
proc_ ["tar", "xzf", "bazel-bin/docs/html.tar.gz", "--strip-components=1", "-C", temp </> show version]
, fileToCheck = "versions.json"
}
damlOnSqlDocOpts :: DocOptions
@ -231,6 +233,7 @@ damlOnSqlDocOpts = DocOptions
shell_env_ [("DAML_SDK_RELEASE_VERSION", show version)] "bazel build //ledger/daml-on-sql:docs"
proc_ ["mkdir", "-p", temp </> show version]
proc_ ["tar", "xzf", "bazel-bin/ledger/daml-on-sql/html.tar.gz", "--strip-components=1", "-C", temp </> show version]
, fileToCheck = "index.html"
}
docs :: DocOptions -> IO ()