def tag_differs

near-v-framework@0.4.0.0 · domain/architecture/system/effects.bend:211

import Base
import near-v-framework@0.4.0.0/domain/architecture/system/effs/io.bend as X

211def tag_differs(tagged: Bool, +root: String, +n: String, +v: String, +r: String) -> IO(Bool):
212  match tagged:
213    case False{}:
214      IO.pure(Bool, False{})
215    case True{}:
216      do IO<Bool>:
217        _ : Bool <- X.succeeds("git", ["clone", "-q", "--depth", "1", "--branch", tag_of(n, v), "https://github.com/" ++ r, plugin_dir(root, n) ++ "/tag"])
218        same : Bool <- X.succeeds("diff", ["-rq", plugin_dir(root, n) ++ "/build", plugin_dir(root, n) ++ "/tag/plugins/" ++ n])
219        return Bool.not(same)