github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 18:36:27 +03:00
Code Issues Projects Releases Wiki Activity

Not using this

Browse Source
This commit is contained in:
Timothy Clem 2018-03-05 19:32:03 -08:00
parent a8b72a85db
commit 32d89acbbe
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Value.hs
View File

@ -94,7 +94,6 @@ class ValueRoots l v | v -> l where
instance (FreeVariables term, Ord location) => ValueRoots location (Value location term) where
valueRoots v
| Just (Closure names body env) <- prj v = envRoots env (foldr Set.delete (freeVariables body) names)
| Just (Interface _ env) <- prj v = envAll env
| otherwise = mempty
instance ValueRoots Monovariant Type.Type where