max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

perf: do not resolve full git object names

Browse source
This commit is contained in:
Gabriel Ebner 2022-05-14 15:34:00 +02:00 • committed by Mac
parent 712b22b46f
commit be570305fc
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Lake/Util/Git.lean
View file

@ -10,6 +10,9 @@ namespace Lake.Git
def upstreamBranch :=
"master"
def isFullObjectName (rev : String) : Bool :=
rev.length == 40 && rev.all fun c => c.isDigit || ('a' <= c && c <= 'f')
def defaultRevision : Option String → String
| none => upstreamBranch
| some branch => branch
@ -51,7 +54,8 @@ def parseRevision (rev : String) (repo : Option FilePath := none) : IO String :=
def headRevision (repo : Option FilePath := none) : IO String :=
parseRevision "HEAD" repo
def parseOriginRevision (rev : String) (repo : Option FilePath := none) : IO String :=
def parseOriginRevision (rev : String) (repo : Option FilePath := none) : IO String := do
if isFullObjectName rev then return rev
(parseRevision ("origin/" ++ rev) repo) <|> parseRevision rev repo
<|> throw (IO.userError s!"cannot find revision {rev} in repository {repo}")