GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-11-14 11:16:33 +03:00
Code Issues Projects Releases Wiki Activity

Tweak unification algorithm to preserve old behavior more.

Browse Source 
(This fixes lots of trivially-broken regression tests.)
This commit is contained in:
Brian Huffman 2018-06-20 15:06:27 -07:00
parent bae811376c
commit 29f401bbcb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Cryptol/TypeCheck/Unify.hs
View File

@ -124,7 +124,7 @@ bindVar v@(TVBound {}) t
where k = kindOf v
bindVar x@(TVFree _ _ xscope _) (TVar y@(TVFree _ _ yscope _))
| xscope `Set.isSubsetOf` yscope = return (singleSubst y (TVar x), [])
| xscope `Set.isProperSubsetOf` yscope = return (singleSubst y (TVar x), [])
bindVar x@(TVFree _ k inScope _d) t
| not (k == kindOf t) = uniError $ UniKindMismatch k (kindOf t)