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

refactor: update ofByteArray with new primitives

Browse source 
also rename `getFileHash` to `computeFileHash`
This commit is contained in:
tydeu 2021-10-23 11:34:01 -04:00
parent 521311292d
commit 74276dd024
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Lake/Trace.lean
View file

@ -102,7 +102,7 @@ def ofString (str : String) :=
mk <| mixHash 1723 <| hash str -- same as Name.mkSimple
def ofByteArray (bytes : ByteArray) :=
mk <| bytes.toList.foldl (init := 1723) fun h b => mixHash h (hash b.toNat)
mk <| bytes.foldl (init := 1723) fun h b => mixHash h (hash b)
def mix (h1 h2 : Hash) : Hash :=
mk <| mixHash h1.val h2.val
@ -122,10 +122,10 @@ class ComputeHash (α) where
export ComputeHash (computeHash)
instance [ComputeHash α] : ComputeTrace α IO Hash := ⟨computeHash⟩
def getFileHash (file : FilePath) : IO Hash :=
def computeFileHash (file : FilePath) : IO Hash :=
Hash.ofByteArray <$> IO.FS.readBinFile file
instance : ComputeHash FilePath := ⟨getFileHash⟩
instance : ComputeHash FilePath := ⟨computeFileHash⟩
instance : ComputeHash String := ⟨pure ∘ Hash.ofString⟩
--------------------------------------------------------------------------------