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

When applying a defaulting substitution, keep going even if value found.

Browse Source 
Since our substitutions are idempotent, normally this would be just wasted
work, but when we are defaulting, we must make sure that we default the
varibales in the looked up thing also.

This fixes #534
This commit is contained in:
Iavor Diatchki 2018-07-23 03:30:52 -07:00
parent 863c165c66
commit f398a68fad
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/Subst.hs
View File

@ -155,7 +155,7 @@ apSubstMaybe su ty =
applySubstToVar :: Subst -> TVar -> Maybe Type
applySubstToVar su x =
case Map.lookup x (suMap su) of
Just t -> Just t
Just t -> Just (if suDefaulting su then apSubst su t else t)
Nothing
| suDefaulting su -> Just $! defaultFreeVar x
| otherwise -> Nothing