package b0

  1. Overview
  2. Docs
Software construction and deployment kit

Install

dune-project
 Dependency

Authors

Maintainers

Sources

b0-0.0.6.tbz
sha512=e9aa779e66c08fc763019f16d4706f465d16c05d6400b58fbd0313317ef33ddea51952e2b058db28e65f7ddb7012f328c8bf02d8f1da17bb543348541a2587f0

doc/src/b0.file/b0_build_kit.ml.html

Source file b0_build_kit.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(*---------------------------------------------------------------------------
   Copyright (c) 2025 The b0 programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

open B0_std

let vcs_describe_scope build =
  let open Result.Syntax in
  B0_memo.fail_if_error (B0_build.memo build) @@
  let dir = B0_build.scope_dir build in
  let* vcs = B0_vcs_repo.find () ~dir in
  match vcs with
  | None -> Ok None
  | Some vcs ->
      let* descr = B0_vcs_repo.describe vcs ~dirty_mark:true "HEAD" in
      Ok (Some descr)