unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-22 07:48:10 +03:00
Code Issues Projects Releases Wiki Activity

Closed term hashing helper function

Browse Source
This commit is contained in:
Dan Doel 2020-10-01 14:27:18 -04:00
parent ee71f810d8
commit 44a9010c6b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
unison-core/src/Unison/Term.hs
View File

@ -939,6 +939,9 @@ hashComponents
:: Var v => Map v (Term v a) -> Map v (Reference.Id, Term v a) :: Var v => Map v (Term v a) -> Map v (Reference.Id, Term v a)
hashComponents = ReferenceUtil.hashComponents $ refId () hashComponents = ReferenceUtil.hashComponents $ refId ()
hashClosedTerm :: Var v => Term v a -> Reference.Id
hashClosedTerm tm = Reference.Id (ABT.hash tm) 0 1
-- The hash for a constructor -- The hash for a constructor
hashConstructor' hashConstructor'
:: (Reference -> ConstructorId -> Term0 Symbol) -> Reference -> ConstructorId -> Reference :: (Reference -> ConstructorId -> Term0 Symbol) -> Reference -> ConstructorId -> Reference