Documentation

Lake.Util.Git

def Lake.Git.defaultRemote :

Equations

Lake.Git.defaultRemote = "origin"

def Lake.Git.upstreamBranch :

Equations

Lake.Git.upstreamBranch = "master"

def Lake.Git.filterUrl? (url : String) :

Try to turn a remote URL into a URL that can be used to, e.g., make GitHub API requests. That is, do not accept SSH URLs and drop an ending .git.

Equations

Lake.Git.filterUrl? url = if url.startsWith "git" = true then none else if url.endsWith ".git" = true then some (url.dropRight 4) else some url

def Lake.Git.isFullObjectName (rev : String) :

Equations

Lake.Git.isFullObjectName rev = (rev.length == 40 && rev.all fun (c : Char) => c.isDigit || decide ('a' ≤ c) && decide (c ≤ 'f'))

structure Lake.GitRepo :

dir : System.FilePath

Instances For

instance Lake.instCoeFilePathGitRepo :

Coe System.FilePath GitRepo

Equations

Lake.instCoeFilePathGitRepo = { coe := fun (x : System.FilePath) => { dir := x } }

instance Lake.instToStringGitRepo :

ToString GitRepo

Equations

Lake.instToStringGitRepo = { toString := fun (x : Lake.GitRepo) => x.dir.toString }

def Lake.GitRepo.cwd :

Equations

Lake.GitRepo.cwd = { dir := { toString := "." } }

@[inline]

def Lake.GitRepo.dirExists (repo : GitRepo) :

Equations

repo.dirExists = repo.dir.isDir

@[inline]

def Lake.GitRepo.captureGit? (args : Array String) (repo : GitRepo) :

BaseIO (Option String)

Equations

One or more equations did not get rendered due to their size.

@[inline]

def Lake.GitRepo.execGit (args : Array String) (repo : GitRepo) :

Equations

One or more equations did not get rendered due to their size.

@[inline]

def Lake.GitRepo.testGit (args : Array String) (repo : GitRepo) :

Equations

One or more equations did not get rendered due to their size.

@[inline]

def Lake.GitRepo.clone (url : String) (repo : GitRepo) :

Equations

One or more equations did not get rendered due to their size.

@[inline]

def Lake.GitRepo.quietInit (repo : GitRepo) :

Equations

repo.quietInit = Lake.GitRepo.execGit #["init", "-q"] repo

@[inline]

def Lake.GitRepo.insideWorkTree (repo : GitRepo) :

Equations

repo.insideWorkTree = Lake.GitRepo.testGit #["rev-parse", "--is-inside-work-tree"] repo

@[inline]

def Lake.GitRepo.fetch (repo : GitRepo) (remote : String := Git.defaultRemote) :

Equations

repo.fetch remote = Lake.GitRepo.execGit #["fetch", "--tags", "--force", remote] repo

@[inline]

def Lake.GitRepo.checkoutBranch (branch : String) (repo : GitRepo) :

Equations

Lake.GitRepo.checkoutBranch branch repo = Lake.GitRepo.execGit #["checkout", "-B", branch] repo

@[inline]

def Lake.GitRepo.checkoutDetach (hash : String) (repo : GitRepo) :

Equations

Lake.GitRepo.checkoutDetach hash repo = Lake.GitRepo.execGit #["checkout", "--detach", hash, "--"] repo

@[inline]

def Lake.GitRepo.resolveRevision? (rev : String) (repo : GitRepo) :

BaseIO (Option String)

Equations

Lake.GitRepo.resolveRevision? rev repo = Lake.GitRepo.captureGit? #["rev-parse", "--verify", "--end-of-options", rev] repo

@[inline]

def Lake.GitRepo.getHeadRevision? (repo : GitRepo) :

BaseIO (Option String)

Equations

repo.getHeadRevision? = Lake.GitRepo.resolveRevision? "HEAD" repo

def Lake.GitRepo.getHeadRevision (repo : GitRepo) :

Equations

One or more equations did not get rendered due to their size.

def Lake.GitRepo.resolveRemoteRevision (rev : String) (remote : String := Git.defaultRemote) (repo : GitRepo) :

Equations

One or more equations did not get rendered due to their size.

def Lake.GitRepo.findRemoteRevision (repo : GitRepo) (rev? : Option String := none) (remote : String := Git.defaultRemote) :

Equations

repo.findRemoteRevision rev? remote = do repo.fetch remote Lake.GitRepo.resolveRemoteRevision (rev?.getD Lake.Git.upstreamBranch) remote repo

@[inline]

def Lake.GitRepo.branchExists (rev : String) (repo : GitRepo) :

Equations

Lake.GitRepo.branchExists rev repo = Lake.GitRepo.testGit #["show-ref", "--verify", toString "refs/heads/" ++ toString rev ++ toString ""] repo

@[inline]

def Lake.GitRepo.revisionExists (rev : String) (repo : GitRepo) :

Equations

Lake.GitRepo.revisionExists rev repo = Lake.GitRepo.testGit #["rev-parse", "--verify", rev ++ "^{commit}"] repo

@[inline]

def Lake.GitRepo.getTags (repo : GitRepo) :

BaseIO (List String)

Equations

repo.getTags = do let __discr ← Lake.GitRepo.captureGit? #["tag"] repo match __discr with | some out => pure (out.split fun (x : Char) => x == '\n') | x => pure []

@[inline]

def Lake.GitRepo.findTag? (rev : String := "HEAD") (repo : GitRepo) :

BaseIO (Option String)

Equations

Lake.GitRepo.findTag? rev repo = Lake.GitRepo.captureGit? #["describe", "--tags", "--exact-match", rev] repo

@[inline]

def Lake.GitRepo.getRemoteUrl? (remote : String := Git.defaultRemote) (repo : GitRepo) :

BaseIO (Option String)

Equations

Lake.GitRepo.getRemoteUrl? remote repo = Lake.GitRepo.captureGit? #["remote", "get-url", remote] repo

def Lake.GitRepo.getFilteredRemoteUrl? (remote : String := Git.defaultRemote) (repo : GitRepo) :

BaseIO (Option String)

Equations

Lake.GitRepo.getFilteredRemoteUrl? remote repo = (do let __do_lift ← Lake.GitRepo.getRemoteUrl? remote repo liftM (Lake.Git.filterUrl? __do_lift)).run

@[inline]

def Lake.GitRepo.hasNoDiff (repo : GitRepo) :

Equations

repo.hasNoDiff = Lake.GitRepo.testGit #["diff", "--exit-code"] repo

@[inline]

def Lake.GitRepo.hasDiff (repo : GitRepo) :

Equations

repo.hasDiff = not <$> repo.hasNoDiff