feat: add convenience functions for constructing a LeanTrace
This commit is contained in:
parent
b14eef6e06
commit
93c9543976
1 changed files with 10 additions and 0 deletions
|
|
@ -48,3 +48,13 @@ structure LeanTrace where
|
|||
hash : Hash
|
||||
mtime : MTime
|
||||
deriving Inhabited
|
||||
|
||||
namespace LeanTrace
|
||||
|
||||
def fromHash (hash : Hash) : LeanTrace :=
|
||||
LeanTrace.mk hash 0
|
||||
|
||||
def fromMTime (mtime : MTime) : LeanTrace :=
|
||||
LeanTrace.mk 0 mtime
|
||||
|
||||
end LeanTrace
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue